Find Full Name in AD from login name

[sparkbyte]

I need a sub that will find a users full name (displayName) from their (sAMAccountName).

I have a script that I am working on where I am outputing file attribute information and want to display the given name as the "owner" rather than the sAMAccountName.

Thanks

Thanks

John Fuhrman
faq329-6766

 

[mrmovie]

.DisplayName may be available through the WinNT provider

Set objUser = GetObject("WinNT://domain_name," & strUserName & ",user")
Msgbox objUser.DisplayName

''''this is interesting but might not be of use right now
Set objTrans = CreateObject("NameTranslate")
objTrans.Set 3, "domain_name_here\" & strUserName
'add a $ for a computer name
strUserDN = objTrans.Get(1)
Msgbox strUserDN
Set objUser = GetObject("LDAP://" & strUserDN)