Имя: Пароль:
1C
1С v8
Получить списки рассылок из 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
ок
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший