• Home
 · 
• Windows System Services
 · 
• Retrieve the Windows user name

Retrieve the Windows user name

Retrieve the Windows user name

API Declarations


' call the function GetUserName.
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long



Rate Retrieve the Windows user name

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

     ' and display answer.
           Sub Get_User_Name()

                ' Dimension variables
                Dim lpBuff As String * 25
                Dim ret As Long, UserName As String

                ' Get the user name minus any trailing spaces found in the name.
                ret = GetUserName(lpBuff, 25)
                UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

                ' Display the User Name
                MsgBox UserName
           End Sub