Getting the systems username

[Bruce A. Perry]

Does anyone know how threw VBA to get the systems username
or login name. I can get the Application.UserName, but it
might not be the same for someone loging in at a diffrent
location?

 

[Chip Pearson]

Bruce,

Try something like

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

Function LogonName() As String
Dim S As String: S = String$(255, " ")
Dim L As Long: L = Len(S)
If GetUserName(S, L) Then
LogonName = Left(S, L - 1)
End If
End Function


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com (e-mail address removed)

 

[Brian]

Try -

' Obtain the NT login id and use it as the user name in MS
Excel.
Application.UserName = Environ("USERNAME")