Чтение папок из Active Directory

[cookmaster]

Мне нужно получить иерархический список папок Active Directory. Вывести просто список папок не представляется сложным. Вопрос как сделать так, чтобы можно было определить иерархию. За ранее благодарю.

[comol]

Папок с чем? Пользователи и группы? Компьютеры? Или что ещё?

[cookmaster]

Папки с пользователями, а также папки не содержащие пользователей, но содержащих папки с ними.

[Dethmontt]

В чем проблема то?

[comol]

Ну как-то так вообщем:

Код Выделить Развернуть

Домены = ПолучитьCOMОбъект("LDAP:");
ADODB = Новый COMОбъект("ADODB.Connection");
ADODB.Provider = "ADSDSOObject";
ADODB.Open("ADs Provider");
Для Каждого Домен Из Домены Цикл
query = "<" + Домен.ADsPath + ">;(&(sAMAccountName=" + ПользовательОС + ")(objectClass=user));AdsPath, cn; base";
rs = ADODB.Execute(query);
Пока Не rs.EOF Цикл
obj = ПолучитьCOMОбъект(rs.Fields(0).Value);
//Сообщить(rs.Fields(0).Value);

rs.MoveNext();
КонецЦикла;

[Dethmontt]

И? У obj нету пути? или что?