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

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