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

От: Maxim Berlin <CGatePro_at_mx_ru>
Дата: Sun 11 Mar 2012 - 14:29:45 MSK

On Sun, 11 Mar 2012 10:02:42 +0600
  "Pavel Loginov" <CGatePro@mx.ru> wrote:
>

>> 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";
>> }

>

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

>
> Не работает. :( Пишет:
>
> Error: unknown user account, quitting at ./testpass.pl line 19,
><GEN0> line 5.
пришлите мне полный текст вашего скрипта, mak#rts.ru

Best wishes,
  Maxim Получено Sun Mar 11 10:29:54 2012