Получить списки рассылок из AD
☑
0
skelaKuban
21.09.11
✎
14:50
Надо получить все списки рассылок из AD, системный администратор говорит, что для этого нужно выбрать все группы, где заполнено свойство "mail" что сделал:
Корень = ПолучитьLDAPОбъект("LDAP://RootDSE");
Провайдер = "Provider=ADSDSOObject;";
Соединение = Новый COMОбъект("ADODB.Connection");
Соединение.Open(Провайдер);
ТекстЗапроса = "<LDAP://" + Корень.Get("defaultNamingContext")+">";
Корень = ПолучитьLDAPОбъект("LDAP://RootDSE");
Провайдер = "Provider=ADSDSOObject;";
Соединение = Новый COMОбъект("ADODB.Connection");
Соединение.Open(Провайдер);
ТекстЗапроса = "<LDAP://" + Корень.Get("defaultNamingContext")+">";
Отбор = ";(&(objectCategory=group)(objectclass=top));*;subTree";
ТекстЗапросаОтбор = ТекстЗапроса + Отбор;
Записи = Соединение.Execute(ТекстЗапросаОтбор);
Что делать дальше хз?
1
Axel2009
21.09.11
✎
14:59
сммотреть методы ADODB.RecordSet?
2
skelaKuban
21.09.11
✎
15:02
спасибо, смотрю
3
skelaKuban
21.09.11
✎
15:11
записи я получил, а как мне их перебрать?
4
Axel2009
21.09.11
✎
15:17
Пока Не Записи.EOF Цикл
КонецЦикла;
5
Axel2009
21.09.11
✎
15:17
Записи.MoveNext();
6
skelaKuban
21.09.11
✎
15:53
Спасибо
7
skelaKuban
21.09.11
✎
16:00
а как проверить в запросе, что бы поле "mail" было не пустым
8
Axel2009
21.09.11
✎
16:00
на форум к админам
9
skelaKuban
21.09.11
✎
16:15
ок
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший