nombre de usuario NT

"Alexander Gomez" escribió en el mensaje news:

Es posible obtener el nombre del usuario del dominio que esta logeado en el
computado?
Cómo se haría?

La forma más sencilla de hacerlo es leyendo las variables de entorno de Windows:

Sub prueba()
MsgBox "Usuario: " & Environ("username") & vbNewLine & "Dominio: " & Environ("userdomain")
End Sub

Si se requiriera mucha seguridad, habría que recurrir a llamadas a la API...
Un saludo.


Fernando Arroyo
MS MVP - Excel

Con la propiedad username del objeto application
(NombreUsuario = Application.username)puedes obtener el
nombre definido en Excel. Si necsitas el nombre del usuario
en el dominio debes utilizar la función api getusername de
la libreria advapi32.dll

Es posible obtener el nombre del usuario del dominio que

esta logeado en el

computado?
Cómo se haría?


.

...ampliando la informacion del anonimo, podrias usar una funcion como la
que sigue colocandola en un modulo estandar (no de clase como los modulos de
hoja, formulario, libro etc.). Luego simplemente la llamas desde tu macro,
digamos:

Sub MiMacro()
MsgBox "Su nombre de usuario NT es: " ReturnUserName
End Sub

Saludos,
KL

'--Inicio Codigo
Public Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long


Public Function ReturnUserName() As String
Dim rString As String * 255, sLen As Long, tString As String
tString = ""
On Error Resume Next
sLen = GetUserName(rString, 255)
sLen = InStr(1, rString, Chr(0))
If sLen > 0 Then
tString = Left(rString, sLen - 1)
Else
tString = rString
End If
On Error GoTo 0
ReturnUserName = UCase(Trim(tString))
End Function
'--Fin Codigo