Retrieve USERID : Windows User « Windows API « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Windows API
3. Windows User

Retrieve USERID

 
Private Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
    Private Const NO_ERROR = 0
    Private Const ERROR_NOT_CONNECTED = 2250&
    Private Const ERROR_MORE_DATA = 234
    Private Const ERROR_NO_NETWORK = 1222&
    Private Const ERROR_EXTENDED_ERROR = 1208&
    Private Const ERROR_NO_NET_OR_BAD_PATH = 1203&
    
    Function WinUsername() As String
        Dim strBuf As String, lngUser As Long, strUn As String
        strBuf = Space$(255)
        lngUser = WNetGetUser("", strBuf, 255)
        If lngUser = NO_ERROR Then
            strUn = Left(strBuf, InStr(strBuf, vbNullChar) - 1)
            WinUsername = strUn
        Else
            WinUsername = "Error :" & lngUser
        End If
End Function
Sub CheckUserRights()
    Dim UserName As String
    UserName = WinUsername
    Select Case UserName
        Case "Administrator"
            MsgBox "Full Rights"
        Case "Guest"
            MsgBox "You cannot make changes"
        Case Else
            MsgBox "Limited Rights"
    End Select
End Sub

 

Related examples in the same category