Application.UserName Equivalent in MS Access

[azizrasul]

Does anyone have VBA code that I can use in MS Access that provides the same data as Application.UserName as used in MS Excel?

 

[Kyle123]

Because you type it in when you install office

 

[azizrasul]

OK thanks Kyle123. I obviously didn't appreciate what the AD was.

 

[smozgur]

I would use WScript:

 CreateObject("Wscript.Network").UserName

Sample sub routine:

Sub getUserName()
Dim objWS As Object
    Set objWS = CreateObject("Wscript.Network")
    MsgBox objWS.UserName
End Sub

More info:

wscript.Network - VBScript - SS64.com

ss64.com

 

[azizrasul]

This gave the same as Environ("USERNAME") i.e. my first name only.

The value does appear in the registry i.e. "HKEY_CURRENT_USER\Software\Microsoft\Office\Common\UserInfo\UserName"

 

[isaac123]

clarification -
It USED to be true that Excel returned "whatever you typed in when you installed it - could be anything" in response to Application.Username
However, with the advent of 365 and corporate accounts, it's also true that anyone on a corporate 365 account likely didn't type anything in when they installed it, and quite probably Application.Username will return their full name. Depending, of course, on the corporate/user account settings for the Enterprise 365 set up.