Доступ к AD через ADO

← →
charoey_mag (2008-12-29 08:25) [0]

Подскажите как осуществить субж. В настройках ADOConnection выбрал "Поставщик услуг OLE DB для служб и каталогов", указал админские логин/пароль, в источнике указал ip контроллера домена. В ADOTable когда пытаешься выбрать таблицу появляется ошибка(краказяблами) и соответственно доступа нет. Подскажите как осущетвить доступ

← →
charoey_mag (2008-12-29 09:05) [1]

Есть скрипт который точно работает, но он не очень удобен. Пытаюсь сделать тоже самое, но что писать в CommandText незнаю. с тем что есть не работает. Может кто-нибудь подскажет как это делается

"On Error Resume Next
Const User_Name = "User1"

Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
"<GC://dc=MYDOMAIN>;(objectCategory=User)" & _
";distinguishedName;subtree"
Set objRecordSet = objCommand.Execute

intCounter = 0

Do Until objRecordset.EOF
intUAC=objRecordset.Fields("distinguishedName")

If mid(intUAC,4,len(User_Name)) = User_Name Then
WScript.echo objRecordset.Fields("distinguishedName")
End If

objRecordset.MoveNext
Loop

← →
easy © (2008-12-29 10:17) [2]

> В ADOTable когда пытаешься выбрать таблицу появляется ошибка(краказяблами)
> и соответственно доступа нет. Подскажите как осущетвить
> доступ

Текущий проводник не поддерживает наборы записей схемы. (это краказяблы)

используй ADOQuery
SELECT distinguishedName FROM "LDAP://dc.local" WHERE ObjectCategory ="user" ORDER BY distinguishedName;

← →
charoey_mag (2008-12-29 10:47) [3]

Спасибо. Разобрался.
На микрософте нашел примеру многих скриптов
http://www.microsoft.com/technet/scriptcenter/scripts/ad/users/status/default.mspx?mfr=true

Но не нашел, можно ли искать по "Описанию"(Description). Если это поле добавть в query то он срабатывает, но если попытыться обратиться к записи или отобразить, то вылетает ошибка:
"Could not convert variant of type variant (Array Variant) into type (string)"
Можно как-то обратиться к описанию?

← →
charoey_mag (2008-12-29 11:08) [4]

Насколько я понял то поле "Описание " возвращает
array of VarianArray.
тогда
var
i:integer;
c:variant;
s:string;
begin
ADOQuery1.Recordset.MoveFirst;
c:=ADOQuery1.Recordset.Fields[0].Value;
i:=length(C[0]);
s:=c[0];

То все нормально. Но если например
i:=length(c);
то появляется ошибка
"Could not convert variant of type variant (Array Variant) into type (string)"

Как узнать сколько записей в основном массиве?

Доступ к AD через ADO Найти похожие ветки