Looks up a user in AD and returns the distinuighed name

FindUserDN.vbs

set adsi= CREATEOBJECT("ADSystemInfo")
set nt= CREATEOBJECT("NameTranslate")

' Get the domain short name
adDomain= adsi.DomainShortName

' Prompt user for uid
user = INPUTBOX("Please enter username: ")

' Find the user's DN
nt.Init 1, adDomain
nt.SET 3, adDomain & "\"  & user
dn = nt.GET(1)

' Display
WScript.Echo "DN: " & dn