Function to return Username (NT Login) of current user

msquared

This function returns the username of the currently logged in NT User.

Expand|Select|Wrap|Line Numbers

 
' This library must be declared

Declare Function GetUserName& _

                     Lib "advapi32.dll" Alias _

                     "GetUserNameA" (ByVal lpBuffer As String,

                                     nSize As Long)
 
Function sys_OrigUserID() As String

Dim s$, cnt&, dl&

Dim max_String As Integer

Dim username As String
 
    max_String = 30

    cnt& = 199

    s$ = String$(max_String, 1)

    dl& = GetUserName(s$, cnt)

    username = Trim$(Left$(s$, cnt))

    username = UCase(Mid(username, 1, Len(username) - 1))

    sys_OrigUserID = username
 
End Function

nico5038

As an alternative you can use the Environ() function like:

Expand|Select|Wrap|Line Numbers

strUser = Environ("username")

This Environ() function can be used to extract all system variables like the computername, etc. as long as the variable has been defined and has been filled.

To get all available variables you can open the cmd window (Start / Run.. and enter the string "cmd") now by typing SET after the "C:>" prompt and pressing [Enter] all available variables (including the "username") will show and all of these can be extracted with this Environ() function. Keep however in mind that not all variables will be available on all computers...

Nic;o)

NeoPa

Bear in mind also that the Environ() function will return whatever is in the Environment Variable "USERNAME". While this is set up with the username, there's nothing to stop it being changed within a session. If you're using this as part of a security feature then it's best to use GetUserName().

Function to return Username (NT Login) of current user

re: Function to return Username (NT Login) of current user

re: Function to return Username (NT Login) of current user

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about