Работа с active directory в delphi

[jpg]

Доброй ночи, давно я тут не был, более 2 лет. :rolleyes:

Есть задача по созданию программы которая будет брать некоторую информацию из АД. К примеру имя учетки, в каких группах состоит и так далее. Посоветуйте что почитать или может какой компонент есть. Буду очень вам признателен.

П.с. Мне нужно просто делать заявки на основе уже имеющихся доступов у какого либо пользователя и права копировать для новой учетки в эксель файл. Заявок много, по этому хочу оптимизировать процесс.

[MyGarant.net]

Доброй ночи, давно я тут не был, более 2 лет. :rolleyes:


Изменил нам с другим форумом и решил через 2 года вернуться!!???????? :feminist_en:

[jpg]

Нет, я просто перестал играть в ла2 :)
Но когда думал о том как решить проблему вспомнил о славном человеке с ником xkor который мне помогал в аське с дельфи и то что у него есть форум ;)

[Yegor]

C AD можно работать как с обычной БД, select ... Провайдер для БД уже есть в винде.


Вот кратко:
http://forum.ru-board.com/topic.cgi?forum=33&topic=2180
http://www.programmersforum.ru/showthread.php?t=187432

[jpg]

Yegor, Не подскажите каким компонентом?

[Yegor]

По ссылкам же написано

TADOConnection
TADOQuery

это стандартные для Delphi компоненты.

[jpg]

Спасибо, ночью я торможу немного.

[jpg]

Добрый день, возникла проблема при написании программы.

Суть проблемы в том что при запросе из лдапа:


select description
from 'LDAP://site.ru/OU=IT,OU=SB,OU=DFS-site.ru,OU=Доступ к общим ресурсам,OU=Группы,DC=site,DC=ru'
where name='AG-DFS-SB-IT-УП-To-units(RW)'

Я получаю ошибку : could not convert variant of type array variant into type olestr
При попытке сохранения запроса в текстовой файл пишет: требуемое преобразование не поддерживается

Запрос правильный, так как если делать селект из столбца name все работает, но основанная информация в дескрипшене.

Прошу знающих помочь. Спасибо.

п.с. подключение через ado.

[Silent]

var Ar : Array of Variant;
...
...
Ar := ADOQuery.FieldByName('cn').AsVariant;
Name := Ar[0];
Ar := ADOQuery.FieldByName('uid').AsVariant;
Login := Ar[0];Выдрал из своего проекта.

[jpg]

var Ar : Array of Variant;
...
...
Ar := ADOQuery.FieldByName('cn').AsVariant;
Name := Ar[0];
Ar := ADOQuery.FieldByName('uid').AsVariant;
Login := Ar[0];Выдрал из своего проекта.

спасибо, очень помогло.