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

matrices en visual basic 6.0 ejercicios resueltos

Question

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

Gracias

Answer 1

¿Qué hay de esto?

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 2

Básicamente, necesitas hacer llamadas a la API de Windows. Buscando en vbnet.mvps.org Recibo las siguientes respuestas.

• obtener nombre de dominio
• obtener el nombre de usuario del hilo (ejecutar como)
• iniciar sesión usuario

Answer 3

Una forma sería preguntarle al medio ambiente:

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

(Funciona en Windows NT y solo arriba, obviamente).

Answer 4

Utilice los siguientes métodos del objeto WshNetwork, que está disponible después de hacer referencia al modelo de objetos de host de Windows Script 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úsculas o minúsculas para obtener consistencia, pero esos son los métodos que necesita.

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

Answer 5

Y la versión API:

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