Benutzerkennwort zurücksetzen

[mkinzler]

Red ich gegen eine Wand

[kuba]

Zitat von mkinzler:

Red ich gegen eine Wand

Habe den Code gerage nochmal in ein anderes Projekt eingefügt (zum testen), gleiche Fehlermeldung:

[Fehler] projekt.dpr(1565): E2029 ';' erwartet, aber '.' gefunden


aber dies muss doch "oben" stehen ...

Delphi-Quellcode:

Type
  NetAPIStatus                 = Integer;

KUBA

[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

[mkinzler]

Du solltest Function NetUserSetInfo auch implementieren oder zumindest einen begin..end-Block einfügen

[Basilikum]

die Funktion NetUserSetInfo ist eine API und liegt in einer DLL:
Function NetUserSetInfo(ServerName,UserName : PWideChar;Level : Integer; Const Buf : Pointer; Var Parm_Err : DWORD) : NetAPIStatus; StdCall; External 'NETAPI32.DLL'; (das "External..." habe ich vorhin vergessen mitzukopieren)

[mkinzler]

Dann sollte diese aber in das Interface

[kuba]

so gehts

Delphi-Quellcode:

Type
  NetAPIStatus                 = Integer;

Function NetUserSetInfo(ServerName,UserName : PWideChar;Level : Integer;
Const Buf : Pointer; Var Parm_Err : DWORD) : NetAPIStatus; StdCall; External 'NETAPI32.DLL';

Function LM_NetUserSetServerPassword(Const Server,UserName,NewPassword : String) : Boolean;
Const
  NERR_Success                 = 0;
  LM20_PWLEN                   = 20;
Type
  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;
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;

[kuba]

Zitat von Basilikum:

bei Verwendung von NetUserSetInfo mit Level 1003 kann das Kennwort auch ohne das alte gesetzt werden (natürlich vorausgesetzt, die erforderlichen Permissions sind vorhanden).

Kann mich noch jemand aufklären was Level 1003 bedeutet und welche Level es sonst noch gibt oder wo ich mich da mal schlau machen kann ???

KUBA

[Christian Seehase]

Moin Kuba,

Du hast nicht zufällig mal auf den Link geklickt, den Basilikum da gepostet hat...

[kuba]

Hy,

wenn ich das richtig sehe gibt es unterschiedlche "Strukturen" für NetUserSetInfo, z.B.: The USER_INFO_1011 structure contains the full name of a network user.

Level 1011 enthält den "full name" of a network user - sehe ich das richtig ?

Kann man "RunAs" auch mit Level 1003 (ohne Kennwort) ausführen ?

KUBA