MUCHAS GRACIAS Ajejandro!
-----Mensaje original-----
De: [email protected] [mailto:[EMAIL PROTECTED] nombre de
[EMAIL PROTECTED]
Enviado el: lunes, 14 de julio de 2008 11:10
Para: vbusers List Member
Asunto: [vbusers] Obtener Usuario y Dominio
El usuario yo lo obtengo con:
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA"
(ByVal lpBuffer As String, nSize As Long) As Long
Private mvarUsuario As String 'local copy
Private Sub GetwinUser()
Dim lpBuff As String * 25
Dim ret As Long
ret = GetUserName(lpBuff, 25)
mvarUsuario = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End Sub
Slds
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of
[EMAIL PROTECTED]
Sent: Lunes, 14 de Julio de 2008 10:45 a.m.
To: [email protected]
Subject: [vbusers] Obtener Usuario y Dominio
Hola a todos, alguien sabe como puedo obtener el usuario logoneado y el
dominio en donde esta la máquina.
Probé con Environ(31) y Environ(32) pero no funciona en todas las máquinas.
Alguien sabe que otra forma hay.
Gracias a todos!
