Re[2]: По поводу блокировок учётных записей в домене.

-----Original Message-----
From: "Roman Prokhorov" <CGatePro@mx.ru> To: oakir@mail.ru
Date: Fri, 15 Sep 2006 11:03:19 +0300
Subject: Re: [CGP] По поводу блокировок учётных записей в домене.

>
> Olga Kirienko on 14.09.2006 17:32 wrote:
>
> > Добрый день!
> >
> > Может кто подскажет в чём загвоздка, задача в следующем: Нужно заблокировать доступ ко всем учётным записям домена, используя библиотеку CLI.pm
> >
> > Написан такой код:
> >
> > $Settings=$cli->GetDomainSettings($Domain);
> >
> > @$Settings{'DomainAccessModes'}='';
> > @$Settings{'AUTHMethods'}='';
>
> Здесь нужно присваивать пустой массив, а не строку.
>
> Уберите все галочки в Web-интерфейсе, и посмотрите в domain.settings что
> должно быть.

Большое спасибо!

код поменяла на

@a1=(20);
@a2=(8);

 @$Settings{'DomainAccessModes'}=\@a1;
 @$Settings{'AUTHMethods'}=\@a2;

Теперь работает.

>
> > if ($cli->SetDomainSettings(domain => $Domain, settings => $Settings )) {
> > } else {
> > print "Can't set $Domain set Right1 : ".$cli->getErrMessage;
> > }
> >
> > my $userName;
> >
> > # Sort the list by keys (user names) and process each list entry
> > foreach $userName (sort keys %$accountList) {
> >
> > my $user=$userName."\@"."$Domain";
> > print "user=$user\n";
> >
> > $Settings1=$cli->GetAccountSettings($user);
> > @$Settings1{'AccessModes'}='';
> >
> > if ($cli->SetAccountSettings($user,$Settings1))
> > {
> > $cli->UpdateAccountSettings($user,$Settings1);
> > } else {
> > print "Can't set $Domain set Right : ".$cli->getErrMessage;
> > }
> > }
> > $cli->Logout; # Close the CLI session and disconnect
> >
> > Внешне всё работает замечательно, галочки на доступ все убираются, но реально в учётные записи пускает и по HTTP так и по POP.
> > Когда же через Web-интерфейс захожу, нажимаю кнопку "Модифицировать" (при этом ничего не меняя), всё - блокировка срабатывает.
> >
> > Аналогично пробовала использовать UpdateDomainSettings и UpdateAccountSettings - тот же эфект.
> >
> > Собственно вопрос что я делаю не так, или может кто подскажет другой способ блокировки учётной записи в Домене используя CLI.pm?
> >
> > Заранее всем Спасибо!
> >
>
>
> --
>
> Roman
Получено Fri Sep 15 08:03:14 2006