Active Directory Benutzer anlegen

[Sasuke]

Hallo,

ich habe in den letzten Tag bisschen rum probiert und folgendes entwickelt. Hab mir einige Beiträge zu dem Thema hier im Forum angesehen.

Delphi-Quellcode:

procedure adduser (ADDUVorname, ADDUNachname, ADDUBenutzername, ADDUPosition, ADDUPassword, ADDUSkript: String);
var
    Container : IADsContainer;
    NewObject : IADs; 
    User      : IADsUser;
    hr        : HREsult;
begin

       if (ADDUVorname = '') and (ADDUNachname = '') and (ADDUBenutzername = '') and (ADDUPosition = '') then
        begin
         showmessage ('Durchführung war erfolgreich');
         Application.Terminate
        end
        else
          begin
              try
              CoInitialize(nil);

               hr := ADsGetObject('WinNT://OU="Neue Benutzer",DC="test",DC="net"',IADs,Container);
                 if Failed(hr) then Exit;

                  NewObject := Container.Create('User','CN='+ADDUNachname+' '+ADDUVorname) as IADsUser;

                  NewObject.QueryInterface(IID_IADsUser, User);

                  user.Put('Name',ADDUNachname+' '+ADDUVorname+' - '+ADDUBenutzername);
                  user.Put('sAMAccountName',ADDUBenutzername);
                  user.Put('userPrincipalName',ADDUBenutzername+'@test.net');
                  user.Put('Firstname',ADDUVorname);
                  user.Put('LastName', ADDUNachname);
                  user.Put('FullName', ADDUVorname+' '+ADDUNachname);
                  user.Put('LoginScript',ADDUSkript);
                  User.SetPassword(ADDUPassword);
                  user.AccountDisabled:=false;
                
            end;
             Container._Release;
             NewObject._Release;
             User._Release;
             CoUninitialize;

        end;

end;

Es wird aber kein neuer Benutzer in der AD angelegt, es kommt auch keine Fehlermeldung.
Wäre echt super wenn mir jemand helfen könnte.