Windows username in VBA

Question

I would like to know how I can access the Windows username in VBA, I mean the username that appears in this image below:

I give this accuracy because I tried using it Environ("Username"), but it gives a login that I have to enter in order to launch windows that are different from the name that I want.

Answer 1

You should be able to use this function:

Public Function GetUserDisplayName() As String
    GetUserDisplayName = GetObject("LDAP://" & CreateObject("ADSystemInfo").UserName).DisplayName
End Function