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