Benutzerkennwort zurücksetzen

[Basilikum]

hier ein Beispiel für die Verwendung von NetUserSetInfo mit Level 1003 (Kennwort setzen):

Delphi-Quellcode:

Function                          LM_NetUserSetServerPassword(Const Server,UserName,NewPassword : String) : Boolean;
Type
  TUserInfo_1003                  = Packed Record
    Password                      : PWideChar;
  end;
Const
  LM20_PWLEN                      = 20;
Var
  BufServer                       : Array[0..63] Of WideChar;
  BufUsername                     : Array[0..63] Of WideChar;
  BufPassword                     : Array[0..LM20_PWLEN - 1] Of WideChar;

  UI1003                          : TUserInfo_1003;
  Param_Err                       : DWORD;
  Res                             : NetAPIStatus;
Begin
  StringToWideChar(Server,BufServer,Length(BufServer));
  StringToWideChar(Username,BufUsername,Length(BufUsername));
  StringToWideChar(NewPassword,BufPassword,Length(BufPassword));

  UI1003.Password:=@BufPassword;
  Res:=NetUserSetInfo(BufServer,BufUsername,1003,@UI1003,Param_Err);
  Result:=(Res = NERR_Success);
end;

(Server kann ein leerer String sein, sofern es sich um einen lokalen User handelt, für Domain-Users muss der Name eines DCs angegeben werden)