Usando VB6, ¿cómo obtengo el usuario y dominio actual en Windows XP?

Question

Necesito el usuario actual y el dominio. Estoy usando una aplicación VB 6.

Gracias

Answer 1

Una forma sería pedir el medio ambiente:

Dim UserName As String 
Dim UserDomain As String 
UserName = Environ("USERNAME") 
UserDomain = Environ("USERDOMAIN") 

Answer 2

¿Qué hay de esto (funciona en Windows NT y representan sólo, obviamente.)?

Private Function IsAdmin() As Boolean 
Dim groups As Object 
Dim user As Object 

Set groups = GetObject("WinNT://./administrators") 

For Each user In groups.members 

If UCase(Environ("USERNAME")) = UCase(user.Name) Then 
IsAdmin = True 
End If 

Next user 

End Function 

Answer 3

Básicamente debe realizar llamadas a la API de Windows. Buscando en vbnet.mvps.org Recibo las siguientes respuestas.

• get domain name
• get thread user name (run as)
• get logged on user

Answer 4

y la API-version:

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long 

Declare Function LookupAccountName Lib "advapi32.dll" Alias "LookupAccountNameA" (lpSystemName As String, ByVal lpAccountName As String, sid As Any, cbSid As Long, ByVal ReferencedDomainName As String, cbReferencedDomainName As Long, peUse As Long) As Long 

Private Sub Form_Load() 
    Dim sDomainName As String * 255 
    Dim lDomainNameLength As Long  
    Dim sUserName as String 
    Dim bUserSid(255) As Byte  
    Dim lSIDType As Long 

    Rem Create a buffer 
    sUserName = String(100, Chr$(0)) 

    Rem Get the username 
    GetUserName sUserName, 100 

    Rem strip the rest of the buffer 
    sUserName = Left$(sUserName, InStr(sUserName, Chr$(0)) - 1) 

    rem Show the temppath and the username 
    MsgBox "Hello " + strUserName 

    lResult = LookupAccountName(vbNullString, sUserName, bUserSid(0), 255, sDomainName, lDomainNameLength, _ 
    lSIDType) 
    if lResult <>0 then 
     msgbox sDomainName 
    end if 
end sub 

Answer 5

Utilice los siguientes métodos del objeto WshNetwork, que está disponible después de hacer referencia a la Modelo de objetos de Windows Script Host en su proyecto:

Dim Network As WshNetwork 
Set Network = New WshNetwork 

Debug.Print "ComputerName: " & Network.ComputerName 
Debug.Print "UserDomain: " & Network.UserDomain 
Debug.Print "UserName: " & Network.UserName 

Eché los resultados a mayúscula o minúscula para mayor coherencia, pero esos son los métodos que necesita.

Tenga en cuenta que cuando se ejecuta en una máquina que no ha iniciado sesión en un dominio, ComputerName y UserDomain devuelven lo mismo: el nombre de la computadora.