Getting the systems username

  • Thread starter Thread starter Bruce A. Perry
  • Start date Start date
B

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?
 
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)
 
Try -

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