[Forward]

Странно что выдает ошибку.
У меня все работает, попробуйте проверить права доступа на чтение из AD.
Еще хинт: создайте vbs файл со следующим содержимым

Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"

Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection

objCommand.CommandText = _
"<LDAP://dc=ВашДомен,dc=com>;(&(objectclass=user)(objectcategory=Person)(sn=Фамилия Пользователя));ADsPath,objectSid,objectGUID,sAMAccountName,userPrincipalName,Name,initials
,sn,givenName,displayName,street,l,st,co,c,Title,Department,physicalDeliveryOffi
c
eName,Manager,TelephoneNumber,mail,facsimileTelephoneNumber,wWWHomePage,pager,mo
b
ile,homePhone,ipPhone"
Set objRecordSet = objCommand.Execute

While Not objRecordSet.EOF
 Wscript.Echo objRecordSet.Fields("Name")
 objRecordSet.MoveNext
Wend

objConnection.Close

и с ним поэкспериментируйте.