Active Directory abfragen

[Codewalker]

Reine Autorisierung lässt sich über eine SSPI-Unit von Luckie (er hat sie gepostet, ist aber nicht von ihm). Die Unit findest du in diesem Thread
Diese Unit beinhaltet nur eine Funktion LogonUser. Dieser gibt man Domäne, Username und Password mit und bekommt einen Boolean zurück. Damit kann man auf lokale Konten authentifizieren (Domäne = '') und auch das AD.
Man kann keinerlei genauere Einschränkungen machen (Rechner, OU, Gruppen, etc.), aber es hat bei mir gereicht, um ein WebInterface für mein Programm zu machen mit sessionbasiertem Login (über AD).

Mir fehlt auch noch die Überprüfung auf eine Gruppenmitgliedschaft, aber AD und Delphi ist nicht so einfach und es fast nur halbgare Quellen und nichts gesammeltes und erklärtes.
Ich werd noch ein Weilchen brauchen, wenn du was hast, würde ich mich über einen Tipp sehr freuen

[Codewalker]

So meine Lieben.

Ich habe mal alles zusammengegrast, was ich für das AD gefunden habe und ein Mini-Projekt daraus gestrickt. Ziel war es, den Zugriff so einfach wie möglich zu halten.
Anbei das Beispiel... viel Spaß

[renekr]

Hi,
Vielen Dank.
habe die SSPI-Unit von Luckie genommen und es funzt wie immer alles von Luckie.

Danke für den Tip.
hat mir sehr weitergeholfen.

mfg

[renekr]

Hi, codewalker,

Ich bin soeben dabei einige userdaten aus dem AD in eine SQL DB zu speichern.

Ich hoffe das das du mir ev. einige Tipps geben kansnt.

- ich muss über mehrere DC und Domänen suchen.
- in deinem BSP. bekomme ich nur den name zurück,ich brauche aber alle Userdaten .

kannst du mir da ev. hilfe geben.

danke

[Codewalker]

Das suchen über mehrere Domänen habe ich noch nicht auf die Reihe bekommen. Du kannst natürlich nacheinandern in den Domänen suchen. Auch versuche ich immer noch eine Liste aller verfügbaren Domänen (wie im Windows-Anmeldedialog) zu bekommen, das kriege ich aber noch nicht hin.

Wenn du mal in den Quelltext schaust, habe ich eine Schleife, die alle UserObjects auflistet. Davon gebe ich nur den Namen zurück, du könntest die Schleife aber recht leicht ändern, so dass die Objekte direkt zurückgegeben werden. Dann hättest du auch Zugriff auf alle Elemente. Ich werd mir das auch noch mal anschauen, hab aber im Moment (=diese Woche ) leider nicht wirklich Zeit dazu, so dass ich nichts versprechen will.

[shmia]

Zitat von Codewalker:

Das suchen über mehrere Domänen habe ich noch nicht auf die Reihe bekommen. Du kannst natürlich nacheinandern in den Domänen suchen. Auch versuche ich immer noch eine Liste aller verfügbaren Domänen (wie im Windows-Anmeldedialog) zu bekommen, das kriege ich aber noch nicht hin.

Mit dem Pfad "Ads:" bekommst du "WinNT:", "NWCOMPAT:", "NDS:", "LDAP:"
Mit dem Pfad "WinNT:" bekommst du eine Liste aller Domänen.
Mit "WinNT://Domänenname" bekommst du alle User, Gruppen und Rechner dieser Domäne.
Mit "WinNT://deinrechnername" bekommst du lokale User, Gruppen & Services.

[renekr]

Hi,
Meisnt du diese?

Delphi-Quellcode:

function TForm2.ListUsers(Domain: String): TStringList;
var   dom : IADsContainer;
begin
 List.Clear;
 if dom <> nil then dom._Release;
 ADsGetObject('WinNT://' + Domain, IADsContainer, dom);
 dom.Filter := VarArrayOf(['user']);

 ADsEnumerateObjects(dom, AddToList);
 Result:=TStringList.Create;
 Result.Assign(List);
end;

Ich blick da net ganz durch.
Du setzt den Filter auf User,und machst füllste die lsite mit ADsEnumerateObjects.
danke

[Codewalker]

Die Funktion "AddtoList" die als Parameter übergeben wird extrahiert den Namen und gibt ihn in einer Stringliste aus. Ich wollte es halt möglichst einfach halten. Gebe dort einfach eine eigene Funktion an. Diese wird für jedes gefundene Userobjekt dann einmal aufgerufen und erhält das UserObjekt als Parameter.

[renekr]

Hi,
danke.

nur ich muss ja dann mit Disp.xy die anderen Daten herholen?

wo stehn dann die daten drin,wie mail,Department telphonenumber usw.

sorry aber ich habe bis jetzt nur mal mit LDAP getestet und da blockt mein DC bei mehr wie 1000 results ab und deswegen muss i auf die WinNt Variante schwenken.

danke dir.

[Codewalker]

hmmm. Das weiß ich so ad hoc auch nicht. Ich schau gleich mal rein und versuche das mal rauszubekommen. (Ansonsten sollte es im MSDN zum Interface auch eine Hilfe geben.)