• Home
 · 
• Windows API Call/Explanation
 · 
• Get User Name

Get User Name

Returns the current user name using a dll call

Returns
The current user that is logged on

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


Rate Get User Name

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

Function GetUser()
 ' This function uses a windows dll to query the registry automatically ti return the user name
 Dim sBuffer As String
 Dim lSize As Long
 ' Parameters for the dll declaration are set
 sBuffer = Space$(255)
 lSize = Len(sBuffer)
 Call GetUserName(sBuffer, lSize)   ' Call the declared dll function
If lSize > 0 Then
 GetUser = Left$(sBuffer, lSize)   ' Remove empty spaces
Else
 GetUser = vbNullString   ' Return empty if no user is found
End If
End Function