JSI Tip 10038. How can I retrieve Active Directory attributes of the logged on user, using standard commands?

Combining the techniques from tip 9882 and tip 9670, you can retrieve Active Directory user attributes.

See the following sample:

On Error Resume Next
Dim objSysInfo, objUser
Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
WScript.Echo "DN: " & objUser.distinguishedName
WScript.Echo "Street Address: " & objUser.streetAddress
WScript.Echo "Locality: " & objUser.l
WScript.Echo "State/province: " & objUser.st
WScript.Echo "Postal Code: " & objUser.postalCode
WScript.Echo "Country: " & objUser.c