Autor Tema: Dominio O Grupo De Trabajo (Leído 4105 veces)

Shiquilla · « **en:** Martes 9 de Agosto de 2005, 11:54 »

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,

zareth

holas

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

Shiquilla

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

Saludos,

zareth

ooooooooooooopppppppppppppppssssssssssssssssss !!!!!!!!!!!!!!!!!!!!!!!!

perdona creo ke no entendi la pregunta o estuve distraido

(este es un foro de VB

debi suponerlo) perdoname

no me di cuenta

, mira ya ke te conteste al principio y para ser todo un caballero

(no exactamente un jedi..

) y no dejarte con la duda me puse a revizar algo ke tenia por alli...

y aki esta:

Código: Text

 
Private Const PLATFORM_ID_DOS = 300
Private Const PLATFORM_ID_OS2 = 400
Private Const PLATFORM_ID_NT = 500
Private Const PLATFORM_ID_OSF = 600
Private 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 Long
End Type
 
Private Declare Function NetWkstaGetInfo Lib &#34;netapi32&#34; (ByVal servername As String, ByVal level As Long, lpBuf As Any) As Long
Private Declare Function GetEnvironmentVariable Lib &#34;kernel32&#34; Alias &#34;GetEnvironmentVariableA&#34; (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private 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 If
End 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 = GetEnvironmentVar
End 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 If
End Sub
 
 

espero ke se aproxime a lo ke buscas....

, saludos y pa la proxima tomare mas atencion

suerte y saludos

z4r3th

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

.

Saludos,

zareth

Cita de: "Shiquilla"

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

Código: Text
lsMaquina = Trim(Environ$("COMPUTERNAME"))
lsDominio = Trim(Environ$("USERDOMAIN"))

Pero gracias por contestar, y por lo de antes no pasa nada .

Saludos,

holas Shiquilla

te agradeceria ke me indicaras como le hicistes para sacar "el nombre del grupo de trabajo" porke probe el codigo y en ambos me sale "mi nombre de usuario"....

saludos z4r3th

Shiquilla

Si, no he conseguido sacar el nombre del grupo de trabajo, y como no encuentro documentación en Internet para sacarlo me conformo con que si existe un dominio que me ponga el nombre del dominio ya que casi todos los usuarios que utilizarán la aplicación pertenecerán a un dominio.

Si encuentro algo para que me saque el grupo de trabajo te lo haré saber (y viceversa

)

Saludos,

SoloCodigo

Autor Tema: Dominio O Grupo De Trabajo (Leído 4105 veces)

Shiquilla

Dominio O Grupo De Trabajo

zareth

Re: Dominio O Grupo De Trabajo

Shiquilla

Re: Dominio O Grupo De Trabajo

zareth

Re: Dominio O Grupo De Trabajo

Shiquilla

Re: Dominio O Grupo De Trabajo

zareth

Re: Dominio O Grupo De Trabajo

Shiquilla

Re: Dominio O Grupo De Trabajo