Delphi World - Изменить пароль пользователя для указанного сервера и домена

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

Изменить пароль пользователя для указанного сервера и домена

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

function NetUserChangePassword(Domain: PWideChar; UserName: PWideChar; OldPassword: PWideChar;
   NewPassword: PWideChar): Longint; stdcall; external 'netapi32.dll'
   Name 'NetUserChangePassword';

 // Changes a user's password for a specified network server or domain. 
// Requirements:  Windows NT/2000/XP 
// Windows 95/98/Me: You can use the PwdChangePassword function to change a user's 
// Windows logon password on these platforms 

procedure TForm1.Button1Click(Sender: TObject);
 begin
   NetUserChangePassword(PWideChar(WideString('\\COMPUTER')),
     PWideChar(WideString('username')),
     PWideChar(WideString('oldpass')),
     PWideChar(WideString('newpass')));
 end;