Programación General > Visual Basic 6.0 e inferiores

 Dominio O Grupo De Trabajo

(1/2) > >>

Shiquilla:
Buenos días, estoy intentado saber si el PC pertenece a un Dominio o a un Grupo de trabajo, y si es asi saber cuál es su nombre (de Dominio o Grupo de trabajo).

El dominio he conseguido sacarlo, pero sólo para los windows 2000 en adelante, ¿alguien sabe como sacar el nombre del dominio si es Windows 9x?

Y bueno, la pregunta de antes, cómo saber si pertenece a un dominio o un grupo de trabajo, y si pertenece a un grupo de trabajo saber el nombre.

Muchas gracias de antemano.

Saludos,  :kicking:

zareth:
holas  :hola:

Windows 9x - clic derecho sobre icono Entorno de Red en el escritorio opcion Propiedades, segunda ficha Identificacion y ahi lo tienes...

Windows 2000/xp - clic derecho sobre el icono de Mi PC en el escritorio opcion Propiedades, segunda ficha Identificacion Red y ahi lo tienes, puedes modificar presionando boton Propiedades...

saludos

z4r3th  :comp:

Shiquilla:
Hola Zareth, eso ya sabía.. preguntaba para saberlo por VB6... gracias de todas formas.

Saludos,

zareth:
ooooooooooooopppppppppppppppssssssssssssssssss !!!!!!!!!!!!!!!!!!!!!!!!  :blink:  :blink:  :blink:  perdona creo ke no entendi la pregunta o estuve distraido  :unsure: (este es un foro de VB  <_< debi suponerlo) perdoname  :(  no me di cuenta  :whistling: , mira ya ke te conteste al principio y para ser todo un caballero  :lightsabre: (no exactamente un jedi..  :P ) y no dejarte con la duda me puse a revizar algo ke tenia por alli...   :smartass: y aki esta:

--- Código: Text --- Private Const PLATFORM_ID_DOS = 300Private Const PLATFORM_ID_OS2 = 400Private Const PLATFORM_ID_NT = 500Private Const PLATFORM_ID_OSF = 600Private Const PLATFORM_ID_VMS = 700 Private Type WKSTA_INFO_102   wki100_platform_id As Long   pwki100_computername As Long   pwki100_langroup As Long   wki100_ver_major As LongEnd Type Private Declare Function NetWkstaGetInfo Lib &#34;netapi32&#34; (ByVal servername As String, ByVal level As Long, lpBuf As Any) As LongPrivate Declare Function GetEnvironmentVariable Lib &#34;kernel32&#34; Alias &#34;GetEnvironmentVariableA&#34; (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As LongPrivate Declare Sub CopyMemory Lib &#34;kernel32&#34; Alias &#34;RtlMoveMemory&#34; (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long) Private Function StripTerminator(sInput As String) As String    Dim ZeroPos As Integer        ZeroPos = InStr(1, sInput, vbNullChar)    If ZeroPos &#62; 0 Then        StripTerminator = Left&#036;(sInput, ZeroPos - 1)    Else        StripTerminator = sInput    End IfEnd Function Function GetEnvironmentVar(sName As String) As String    GetEnvironmentVar = String(255, 0)    GetEnvironmentVariable sName, GetEnvironmentVar, Len(GetEnvironmentVar)    If InStr(1, GetEnvironmentVar, Chr&#036;(0)) &#62; 0 Then GetEnvironmentVar = Left&#036;(GetEnvironmentVar, InStr(1, GetEnvironmentVar, Chr&#036;(0)) - 1)    GetEnvironmentVar = GetEnvironmentVarEnd Function Private Sub Form_Load()      Dim pWrkInfo As Long, WrkInfo(0) As WKSTA_INFO_102, lResult As Long      MsgBox &#34;Usuario de Dominio: &#34; & GetEnvironmentVar(&#34;UserDomain&#34;)      lResult = NetWkstaGetInfo(StrConv(&#34;&#092;&#092;&#34; & GetEnvironmentVar(&#34;UserDomain&#34;), vbUnicode), 102, pWrkInfo)   If lResult = 0 Then      Dim cname As String      cname = String&#036;(255, 0)      CopyMemory WrkInfo(0), ByVal pWrkInfo, ByVal Len(WrkInfo(0))      CopyMemory ByVal cname, ByVal WrkInfo(0).pwki100_langroup, ByVal 255      MsgBox &#34;Dominio: &#34; & StripTerminator(StrConv(cname, vbFromUnicode))      Select Case WrkInfo(0).wki100_platform_id         Case PLATFORM_ID_DOS: MsgBox &#34;Sistema Operativo: &#34; & &#34;DOS&#34;         Case PLATFORM_ID_OS2:                     If WrkInfo(0).wki100_ver_major = &#34;4&#34; Then                        MsgBox &#34;Sistema Operativo: &#34; & &#34;Win9x&#34;                     Else                        MsgBox &#34;Sistema Operativo: &#34; & &#34;OS2&#34;                     End If         Case PLATFORM_ID_NT:                     If WrkInfo(0).wki100_ver_major = &#34;5&#34; Then                        MsgBox &#34;Sistema Operativo: &#34; & &#34;Win 2000&#34;                     Else                        MsgBox &#34;Sistema Operativo: &#34; & &#34;Win NT&#34;                     End If         Case PLATFORM_ID_OSF: MsgBox &#34;Sistema Operativo: &#34; & &#34;OSF&#34;         Case PLATFORM_ID_VMS: MsgBox &#34;Sistema Operativo: &#34; & &#34;VMS&#34;      End Select   End IfEnd Sub  espero ke se aproxime a lo ke buscas....  :smartass: , saludos y pa la proxima tomare mas atencion  :P  :P  :P  suerte y saludos

z4r3th  :comp:

Shiquilla:
Gracias Zareth por el código, al final lo hize con:


--- Código: Text ---    lsMaquina = Trim(Environ&#036;(&#34;COMPUTERNAME&#34;))    lsDominio = Trim(Environ&#036;(&#34;USERDOMAIN&#34;)) 
Pero gracias por contestar, y por lo de antes no pasa nada  :P.

Saludos,

Navegación

[0] Índice de Mensajes

[#] Página Siguiente