How can I get the currently logged-in windows user in Access VBA?

Question

I found this via google: http://www.mvps.org/access/api/api0008.htm is this the best way to do it?

Answer 1

You could also use Environ$ but the method specified by the question is better. Users/Applications can change the environment variables.

Answer 2

Alernative way to do that - probably API you mention is the good way to get username.

For Each strComputer In arrComputers
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
        For Each objItem in colItems
        Wscript.Echo "UserName: " & objItem.UserName & " is logged in at computer " & strComputer
Next

Answer 3

You could also do this:

Set WshNetwork = CreateObject("WScript.Network")
Print WshNetwork.UserName

It also has a UserDomain property and a bunch of other things:

http://msdn.microsoft.com/en-us/library/907chf30(VS.85).aspx

Answer 4

I generally use an environ from within VBA as in the following. I haven't had the problems that Ken mentions as possibilities.

Function UserNameWindows() As String
    UserNameWindows = VBA.Environ("USERNAME") & "@" & VBA.Environ("USERDOMAIN")
End Function

Answer 5

Lots of alternative methods in other posts, but to answer the question: yes that is the best way to do it. Faster than creating a COM object or WMI if all you want is the username, and available in all versions of Windows from Win95 up.

Answer 6

I tried to reproduce steps mentioned here(answer by ken) but I was not able to change any value of the Environ object. The only way to do this in straight VBA is then the one proposed here(answer by knox) and I cannot understand why this answer was downgraded!