Benutzerkennwort zurücksetzen

[kuba]

jetzt funktionierts, irgendetwas war mit den Units nicht OK...

der Code funzt leider doch nicht richtig, aber ich hab jetzt endlich eine Möglichkeit gefunden ..

Delphi-Quellcode:

 if LogonUser(PAnsiChar(USERNAME),        // UserName
             PAnsiChar(''),          // Domäne oder lokaler Rechner
             PAnsiChar('Passwort'),        // Password
             LOGON32_LOGON_BATCH or LOGON32_LOGON_NETWORK or LOGON32_LOGON_INTERACTIVE,
             LOGON32_PROVIDER_DEFAULT,
             AdminToken)
     then begin
       if ImpersonateLoggedOnUser(AdminToken)
       then begin
              // hier kommt Dein Prog.-Code hin
              winexec('notepad.exe',SW_SHOW);
              RevertToSelf;              // zurückschalten zum angemeldeten Benutzer
            end;
     end;

KUBA