Имя: Пароль:
1C
 
Как получить список групп группы AD?
0 Tarja
 
25.10.10
14:15
Помогите, плз. Может кто сталкивался с проблемой.
В AD есть группа, эта группа содержит пользователей и группы.
Есть функция:
Функция ПолучитьСписокПользователейВГруппеДомена (ИмяДомена, ИмяГруппы) Экспорт  
   Результат = Новый Массив();
   objNameSpace = "";  
   Попытка  
       objNameSpace = ПолучитьCOMОбъект("WinNT://" + СокрЛП(ИмяДомена) + "/" + СокрЛП(ИмяГруппы) + ", Group");  
       Для каждого item Из objNameSpace.Members() Цикл  
           Результат.Добавить(item.Name);  
           
           Сообщить(item.Name);//Full
       КонецЦикла;
   Исключение  
       Результат.Очистить();
   КонецПопытки;  
   
   Возврат Результат;    
КонецФункции

С помощью неё достается только список пользователей (Class = User). Как получить список групп?
1 Apokalipsec
 
25.10.10
14:24
objNameSpace - посмотри, там нету Groups?
2 Tarja
 
25.10.10
14:25
Это первым делом смотрела... К сожалению, нет такого.
3 Nikitos
 
25.10.10
14:36
4 Nikitos
 
25.10.10
14:37
Самый первый в списке.
5 Tarja
 
25.10.10
14:41
Nikitos, именно оттуда функция и была взята. Спасибо, но не помогло. Вопрос открыт.
6 Nikitos
 
25.10.10
14:46
(5) Читаем очень внимательно:

Функция ПолучитьСписокГруппВДомене (ИмяДомена, ТипГрупп = "GlobalGroup") Экспорт  
   Результат = Новый Массив();
   objNameSpace = "";  
   Попытка  objNameSpace = ПолучитьCOMОбъект("WinNT://"+СокрЛП(ИмяДомена));  
       м = Новый Массив();  
       м.Добавить(ТипГрупп); // Computer User Group GlobalGroup domain  
       м2 = Новый COMSafeArray(м, "VT_VARIANT");  
       objNameSpace.Filter = м2;  
       Для каждого item Из objNameSpace Цикл  
           Результат.Добавить(item.Name);  
       КонецЦикла;
   Исключение  
       Результат.Очистить();
   КонецПопытки;  
   
   Возврат Результат;
КонецФункции
7 Tarja
 
25.10.10
14:52
(6) Очень внимательно прочитано. Эта функция получает список групп домена, а не список групп группы. Не помогают и все вариации этой функции, если писать:
objNameSpace = ПолучитьCOMОбъект("WinNT://"+СокрЛП(ИмяДомена)+"/"+СокрЛП(ИмяГруппы));
8 Tarja
 
26.10.10
07:35
Неужели никто не подскажет?