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

Delphi , Интернет и Сети , Сеть

Оформил: 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;

Программный код на Delphi, использующий функцию NetUserChangePassword из библиотеки netapi32.dll для изменения пароля пользователя на указанном сетевом сервере или домене. Функция требует четырех параметров: Domain, UserName, OldPassword и NewPassword.

Описание кода:

1. Декларация функции:

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

Эта декларация функции называется NetUserChangePassword и принимает четыре параметра типа PWideChar, которые являются широкими строками (unicode). Функция возвращает целочисленное значение. Ключевое слово stdcall указывает на вызововой конвенцию, а часть external 'netapi32.dll' Name 'NetUserChangePassword'; указывает, что функция декларирована в библиотеке netapi32.dll с именем NetUserChangePassword.

1. Процедура TForm1.Button1Click:

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

Эта процедура вызывается при клике кнопки с надписью Button1. Она вызывает функцию NetUserChangePassword с четырьмя параметрами:

• \\COMPUTER: Имя домена (замените это на актуальное имя домена или IP-адрес сервера)
• 'username': Имя пользователя, пароль которого нужно изменить
• 'oldpass': Текущий пароль для пользователя
• 'newpass': Новый пароль для пользователя

Обратите внимание:

• Нужно заменить \\COMPUTER на актуальное имя домена или IP-адрес сервера.
• Должны храниться в безопасных переменных старый пароль и новый пароль, так как они передаются в открытом тексте.
• Код не обрабатывает ошибки или исключения. В реальном приложении вы хотели бы добавить обработку ошибок для обеспечения успешности вызова функции.

Альтернативное решение:

Вместо жесткого кодирования имени домена, имени пользователя и паролейconsider хранить их в файле конфигурации или переменных среды для безопасности и удобства использования. Вы можете также использовать встроенные функции Delphi, такие как GetEnvironmentVariable, чтобы получить значения из переменных среды.

Кроме того, вам может быть полезно рассмотреть использование более современных и безопасных механизмов изменения паролей, таких как библиотеки, поддерживающие протоколы Kerberos или NTLM.

Функция NetUserChangePassword позволяет изменить пароль пользователя для указанного сервера и домена.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Сеть ::