VBA username vs userID

[Pinaceous]

Good Day,

If I identify the TEST-FILE.xlsx file in its open folder through 'Shift + Right Click' for "Copy as path" I'm getting:

"C:\Users\user-id\Folder1\Folder2\Folder3\Folder4\TEST-FILE .xlsm"

Each username has a specific user-id.

Now, I'm having trouble identifying how to get each username's user-id so I can use it in a code.

If I open a Windows Explorer and click on each username's "This PC" in the left navigation panel I'm getting:

"C:\Users\user-id"

For example, if I right click on the open Windows Explorer window for Tod Smith, I would get something like "DR4EACE" for his user-id and get:

"C:\Users\DR4EACE"

So, how can I identify Tod Smith's user-id in using Excel?


Any thoughts, comments, articles, links, please let me know!

Thank you!
pinaceous

 

[Georgiboy]

Various ways to get to username and different types of username if you wish, below are a couple of examples of getting to the different usernames:

Excel application username

Sub test()
    Debug.Print Application.UserName
End Sub

Environ username:

Sub test2()
    Debug.Print Environ("username")
End Sub

One version of system username/ Domain/ FullName:

Sub test3()
    Dim UserFullName As String
    Dim WSHnet As Object
    Dim objUser As Object
    Dim UserName As String
    Dim UserDomain As String

    Set WSHnet = CreateObject("WScript.Network")
    UserName = WSHnet.UserName
    UserDomain = WSHnet.UserDomain
    Set objUser = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
    UserFullName = objUser.FullName
    
    Debug.Print UserName
    Debug.Print UserDomain
    Debug.Print UserFullName
End Sub

Hope this helps