Identificación de usuario

[rguez]

Hola a todos

Una vez vi un comando en VBA que retornaba el nombre usuario (login-name) con que se ingresó al ambiente windows.

Alguien lo recuerda?

Gracias

 

[Juan Pablo González]

Algo así ?<pre>Option Explicit

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

Function NombreUsuario()
Dim strUserName As String
strUserName = String(100, Chr$(0))
GetUserName strUserName, 100
strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)
NombreUsuario = strUserName
End Function</pre>

 

[rguez]

¡Perfecto!

Gracias