|
Как получить список групп группы 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
|
Неужели никто не подскажет?
|
|