Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Getting the systems username
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? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Getting the systems username
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 "Bruce A. Perry" wrote in message ... 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? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Getting the systems username
Try -
' Obtain the NT login id and use it as the user name in MS Excel. Application.UserName = Environ("USERNAME") -----Original Message----- 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 "Bruce A. Perry" wrote in message ... 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? . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
HOW TO GET TRACKING SYSTEMS | Excel Worksheet Functions | |||
Solve nonlinear systems of equations? | Excel Discussion (Misc queries) | |||
Ensure column width is adequate across systems | Excel Discussion (Misc queries) | |||
Scatterplot chart area changes size on different systems | Charts and Charting in Excel | |||
Information Systems Manager | Excel Discussion (Misc queries) |