Benutzerkennwort zurücksetzen

[kuba]

so, nochmal :

Delphi-Quellcode:

Const
  NERR_Success                 = 0;
  LM20_PWLEN                   = 20;
Type
  NetAPIStatus                 = Integer;
  TUserInfo_1003               = Packed Record
    Password                   : PWideChar;
  end;
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;
Function NetUserSetInfo(ServerName,UserName : PWideChar;Level : Integer;
Const Buf : Pointer; Var Parm_Err : DWORD) : NetAPIStatus; StdCall;

Function LM_NetUserSetServerPassword(Const Server,UserName,NewPassword : String) : Boolean;
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;

geht aber auch nicht

KUBA