!!! Seguridad Integrada NT !!!

No estoy seguro de que sea lo que necesitas, pero prueba con:

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

Sub MostrarUsuario()
Dim strUserName As String, Cadena As String * 46
strUserName = String(100, Chr$(0))
GetUserName strUserName, 100
strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)
MsgBox strUserName
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Daniel" escribió en el mensaje news:u%

Alguno sabe si existe alguna forma de obtener cual es el usuario (userid)
que está logeado en la PC usando VBA.

Por ejemplo como se haría con la instrucción:
"request.servervariables("AUTH_USER") en ASP.

Gracias!