Über Delphi neuen Benutzer anlegen, bestehenden bearbeiten

[Meakin]

Also. In meinem Programm ist es notwendig, dass ein neuer Benutzer angelegt wird, der nur eingeschränkte Rechte hat, daher keine Adminrechte (WinXP ist das OS). Damit dem Benutzer die viele Handarbeit erspart bleibt, soll er nur einen Accountnamen und ein Passwort angeben, den Rest soll das Programm erledigen.

Nun ist es aber so, dass ich zu diesem Thema keinerlei Material finde, bzw nur auf toten Seiten lande.
Auch bei der MDSN bin ich bisher nicht fündig geworden, wie ich so etwas direkt erledigen kann.

Zudem soll der Administratoraccount ein (neues) Passwort erhalten (unter Zustimmung des Nutzers natürlich, das heißt: das alte Passwort ist dem Programm durch den Nutzer bekannt).
Auch hier fand ich nichts.

Ich hoffe jemand in diesem Forum kann mir einen Ansatz liefern wie ich so etwas umsetzen kann, denn im Moment stehe ich hier gerade auf dem Schlauch.

[RWarnecke]

Hallo und herzlich willkommen in der :dp:

schaue mal hier in den Units von Luckie nach. Da solltest Du einiges zu finden. Ansonsten wenn Du bei den Units nichts findest, sollte bestimmt noch hier was dabei sein. windows benutzer anlegen.

Edit: Habe ich ganz vergessenNetUserAdd

[Luckie]

Das kann ich eigentlich nicht glauben, dass du dazu nichts findest.

http://www.michael-puff.de/Programmierung/Delphi/Units/ -> MpuNTUser.pas

[Meakin]

erstmal danke.
von dir luckie fand ich auch was, dort wurde aber auf eine andere seite von dir verwiesen, die nicht mehr exisitiert hat..

Ich werde erstmal sehen ob mir das weiterhilft

[Luckie]

Nun ja, so unübersichtlich sollte meine Seite nicht sein und mir eine PN zu schreiben, wäre auch nicht schwer gewesen.

[Meakin]

Also. Habe nun folgendes implementiert. Dabei habe ich mich zum einem an Luckies Unit orientiert, zum anderen an MSDN. Syntax ist laut Delphi korrekt.
Ich hätte auch Luckies Unit so nehmen können, doch geht es für mich hier vor allem darum, dies selbst zu lernen und zu verstehen. Ausserdem brauchte ich bei weitem nicht alle Funktionen die dort erstellt worden waren.

Funktion in Delphi setzen

Code:

implementation

{$R *.dfm}

function NetUserAdd(ServerName: lpWStr; Level: DWord; Buf: lpByte; Parm_Err: lpDWord): LongInt; StdCall; External 'NETAPI32.DLL';

Hier binde ich die Funktion aus NETAPI32 ein. Da Name gleich ist habe ich denn nicht hinten angesetzt. Ich verwendete die selben Variablen wie in MDSN (Typen waren Delphi bekannt). Bis auf
lpByte welches ich so angab

Code:

type

  lpByte = pByte;

Nun habe ich die Funktion angewendet:

Code:

    User.usin1_name := 'Nutzer';
    User.usin1_password := 'Password';
    NetUserAdd('localhost', 1, @User, nil);

Dabei wird von User, welcher vom Typ USERINFO_1 das Passwort und der Name gesetzt. Zuvor wurde User nur in den Variablen defininiert, nicht weiter initialisiert. Auch er ist unter type definiert:

Code:

type

  TUserInfo1 = record
    usin1_name: LPWSTR;
    usin1_password: LPWSTR;
    usin1_password_age: DWORD;
    usin1_priv: DWORD;
    usin1_home_dir: LPWSTR;
    usin1_comment: LPWSTR;
    usin1_flags: DWORD;
    usin1_script_path: LPWSTR;
  end;

Soweit funktioniert das ganze auch. Das Programm startet, es tut alles was es machen soll, durchläuft den gesamten Alogrithmus ohne Fehlermeldung. Doch dann sehe ich unter der Benutzerverwaltung: Nichts ist passiert. Kein neuer Benutzer wurde erstellt.

[Luckie]

Nicht umsonst gibt die Funktion NetUserAdd einen fehlercode zurück.

[Meakin]

gut habe das jetzt geändert in

Code:

If NetUserAdd('localhost', 1, @User, nil) <> 0 then RaiseLastOSError;

SystemError. Code 997.
Überlappener E/A-Vorgang wird bearbeitet.


Was ist das für ein Error?
Hängt der nicht mit nicht gefundenen DLLs Dateien zusammen?