Re: Смена пароля у всех пользователей.

От: Maxim Berlin <CGatePro_at_mx_ru>
Дата: Wed 07 Mar 2012 - 16:28:05 MSK

On Wed, 7 Mar 2012 17:10:10 +0600
  "Pavel Loginov" <CGatePro@mx.ru> wrote:
> Здравствуйте, .
>
> Приветствую.
>
> Появилась необходимость сменить всем пользователям в домене пароль.
> Т.е. как я программированием плохо знаком то помогите объединить
>2
> функции:
>
> $AccountList = $cli->ListAccounts('domen.com')
> || die "Error: ".$cli->getErrMessage.", quitting";
> foreach(keys %$AccountList) { print "$_\n"; }
>
> $cli->SetAccountPassword('john','newPass')
> || die "Error: ".$cli->getErrMessage.", quitting";

вы всем пользователям хотите один и тот же пароль что ли поставить? тогда так:

$AccountList = $cli->ListAccounts('domen.com')

                  || die "Error: ".$cli->getErrMessage.", quitting";

foreach my $acct (keys %$AccountList)
{
  $cli->SetAccountPassword($acct,'newPass')

         || die "Error: ".$cli->getErrMessage.", quitting"; }

но лучше все-таки найдите поблизости кого-нибудь со знанием перла и не забудьте сделать бэкап...

Best wishes,
  Maxim Получено Wed Mar 07 12:28:12 2012

Этот архив был сгенерирован hypermail 2.1.8 : Fri 24 Apr 2015 - 16:17:21 MSK