VBA: how do I get full user name, not login ID?

[mthompso]

The following VBA code, executed on a Windows Network computer, will give me the Windows Login ID of the user that's logged in to the computer:

Sub UserName()
    MsgBox Environ("username")
End Sub

How do I get the full user name, not just the Windows Login ID?

Example: On this specific Windows network, the login id is the first letter of the user's first name followed by their last name. John Doe's login id is JDOE. How can I get VBA to give me the string "John Doe" and not "JDOE"?

 

[DonkeyOte]

have a look here:

http://www.ozgrid.com/forum/showthread.php?t=53772

needless to say it's a bit of a faff...

 

[Stormseed]

needless to say it's a bit of a faff...

hi Luke, what is "faff" ?

 

[DonkeyOte]

hmm... I always forget how global Mr E is and how absurd we are in the UK at times...

"To Faff": http://en.wiktionary.org/wiki/faff

Though I meant in the context that's it's a bit of b*ll ache / hassle for what you get out of it at the end

It would be nice if we could pull this info easily as we can the NT username...

 

[Haluk]

Try this;

Sub GetUserFullName()
    Dim MyOBJ As Object
    On Error Resume Next
    Set MyOBJ = GetObject("WinMgmts:").instancesOf("Win32_NetworkLoginProfile")
    If Err.Number <> 0 Then
      MsgBox "WMI has not been installed, code will be terminated...", vbExclamation, "Windows Management Instrumentation"
      Exit Sub
    End If
    For Each objItem In MyOBJ
        MyMsg = MyMsg & "User Full Name: " & vbCrLf & vbCrLf & objItem.FullName
    Next
    MsgBox MyMsg, vbInformation, "User Full Name ....   (Haluk ®)"
End Sub

 

[Stormseed]

hmm... I always forget how global Mr E is and how absurd we are in the UK at times...

"To Faff": http://en.wiktionary.org/wiki/faff

I can't open that website from here (office). Will check it from home !

Heck, it is great to learn new words, especially when it comes from the UK part of the world - because it is the origin of English. I forgot to mention, other than Excel information, MrExcel is main source of my learning of new english words almost everyday and I really like it though

Just yesterday, I came across one more word called "duff" which was used by Patience & her friends on Facebook. I am yet to learn the meaning of that word too

Thanks, Luke for the information you provided !

 

[Haluk]

Another alternative is using the WSH approach;

Sub GetUserFullName2()
    Set WSHnet = CreateObject("WScript.Network")
    UserName = WSHnet.UserName
    UserDomain = WSHnet.UserDomain
    Set objUser = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
    UserFullName = objUser.FullName
    MsgBox "User Full Name: " & vbCrLf & vbCrLf & UserFullName, vbInformation, "User Full Name ....   (Haluk ®)"
End Sub

 

[Jhecyka BR]

Another alternative is using the WSH approach;

Sub GetUserFullName2()
    Set WSHnet = CreateObject("WScript.Network")
    UserName = WSHnet.UserName
    UserDomain = WSHnet.UserDomain
    Set objUser = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
    UserFullName = objUser.FullName
    MsgBox "User Full Name: " & vbCrLf & vbCrLf & UserFullName, vbInformation, "User Full Name ....   (Haluk ®)"
End Sub

Thank you very much! I was looking for a long time how to pull the username windows, and finally found! <3 <3 <3

 

[Michael M]

@stormseed
Depending on the context in which duff is used

It could mean
Get off your duff.....get up, stop sitting on your bottm

Up the duff...pregnant


See here for others

duff Meaning in the Cambridge English Dictionary

 

[Dokat]

Hi - Code works perfectly when i am logged on to the network but it doest work when i am offsite and working remotely. Is there a way to modify the code so that it can work when i am not on network