Perl для системного администрирования



         

Работа с группами через ADSI



Работа с группами через ADSI

Для перечисления доступных групп достаточно лишь немного подправить программу, выводящую список пользователей. Меняется только такая строка:

print $adsobj->{Name},"\n"

if ($adsobj->{Class) eq "Group"):

Создание и удаление групп выполняется при помощи тех же методов CreateO и Oelete(), которые применялись для создания и удаления учетных записей. Единственное различие - первый аргумент нужно изменить на «group». Вот так:

$д = $с->Сгеа Sgro.ip- ary):

Для добавления пользователя в группу (определяемую при помощи GroupName) после ее создания используется следующее:

use Win32::OLE:

SADsPath = "WinNT://DomainNane ''GroupNcine gro,,c"

$g = Win32: :OLE->GetOuject($ADsPatii) or

Здесь действуют те же правила относительно локальных пользователей и пользователей домена (глобальных), которые мы рассмотрели выше. Для того чтобы добавить пользователя домена в группу, $ийо<"-ADsPath должна указывать на пользователя на PDC для этого домена.

Для удаления пользователя из группы применяйте:

$c->Reniove($userADsPath);



Содержание Назад Вперед