Пароль

[Terran]

Всем привет!
Подскажите пожалуста, как можно программно поставить или убрать пароль для входа в систему?
Есле можно, то приведите пример такого кода.
Заранее благодарен!

[rpy3uH]

функция NetUserChangePassword.

NET_API_STATUS NetUserChangePassword(
    LPWSTR domainname,	
    LPWSTR username,	
    LPWSTR oldpassword,	
    LPWSTR newpassword	
   );

но в любом случае нужно знать старый пароль

[Air]

Сообщение от Terran

Всем привет!
Подскажите пожалуста, как можно программно поставить или убрать пароль для входа в систему?
Есле можно, то приведите пример такого кода.
Заранее благодарен!

исходник здесь
http://www.delphisources.ru/pages/fa...sers_pass.html

пример:

...
var
  Form1: TForm1;


implementation
Function NetUserChangePassword(DomainName,UserName,
         OldPassword,NewPassword:LPWSTR):Longbool; stdcall;
         external 'netapi32.DLL' name 'NetUserChangePassword';

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
NetUserChangePassword(PWideChar(WideString('\\wiktor')),
     PWideChar(WideString('Миша')),
     PWideChar(WideString('a')),
     PWideChar(WideString('b')));
end;

end.