show user's first and last name

[brian32]

Hi.

I have a simple script that displays the current user's logon name, like jdoe for John Doe:

Set objNetwork = WScript.CreateObject("WScript.Network")
MsgBox objNetwork.UserName

How do I display the current user's first and last name instead of their logon name?

Running XP Pro in a Windows 2003 Active Directory domain. Thanks.

 

[tsuji]

Have to make sure user is logging on to the domain and then like this.
[tt]
dim sdn
with createobject("NameTranslate")
.init 1,objNetwork.UserDomain
.set 3,objNetwork.UserDomain & "\" & objNetwork.UserName
sdn=.get(1)
end with

with getobject("LDAP://" & sdn)
msgbox .givenname & " " & .sn
end with
[/tt]