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.