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

  Olga Kirienko on 14.09.2006 17:32 wrote:

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

Здесь нужно присваивать пустой массив, а не строку.

Уберите все галочки в Web-интерфейсе, и посмотрите в domain.settings что должно быть.

> 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