'uname.vbs

'Usage:
'      cscript //Nologo uname.vbs "CN=johndoe,OU=Users,DC=ss64,DC=com"

' Display First and Last name for a given DN

On Error Resume Next
Dim  objUser, strDN

strDN = WScript.Arguments.Item(0)
Set objUser = GetObject("LDAP://" & strDN)
WScript.Echo "First name: " & objUser.givenName
WScript.Echo "Last name: " & objUser.sn
WScript.Echo "Display name: " & objUser.displayName