VBS & Active Directory
у меня есть два AD:
xx-spb.bla-bla.com и yy-spb.bla-bla.com
YY - это мой, а второй XX - дружественный.
делаю поиск пользователя в AD (http://www.microsoft.com/technet/scriptcenter/scripts/ad/users/list/uslsvb18.mspx):
Код
strUserName = "Administrator"
dtStart = TimeValue(Now())
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
"<LDAP://dc=yy-spb,dc=bla-bla, dc=com>;(&(objectCategory=User)" & _
"(samAccountName=" & strUserName & "));samAccountName;subtree"
Set objRecordSet = objCommand.Execute
If objRecordset.RecordCount = 0 Then
WScript.Echo strUserName & " does not exist."
Else
WScript.Echo strUserName & " exists."
End If
objConnection.Close
когда ищу в своей AD - все ок, когда в
LDAP://dc=xx-spb,dc=bla-bla, dc=com - говорит пользователя нет, НО ОН ТАМ ЕСТЬ!
пинг проходит на тот сервер, и телнет отвечает!
у меня подозрения, что надо конектица с определенными правами, например с правами пользователя той AD, но как не знаю!