This is the code I use:
Code:
Set rs = CreateObject("adodb.recordset")
Connstring = "Provider=ADsDSOObject"
strSQL = "SELECT distinguishedName FROM 'LDAP://ou=es,dc=prg-dc,dc=dhl,dc=com' WHERE sAMAccountName = 'jdoe'"
rs.Open strSQL, Connstring
Do Until rs.EOF
WScript.Echo rs("distinguishedName")
Loop
rs.close
strUserDN = LCase(fullpath)
Set objUser = GetObject ("LDAP://" & strUserDN)


