Über Delphi neuen Benutzer anlegen, bestehenden bearbeiten

[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?