Hi
Ich versuche jetzt seit 2 Tagen eine einfache ADSI Verbindung herzustellen, aber es klappt einfach nicht
Mittels Google findet man genau eine...eine einzige Anleitung zu Adsi mit Delphi und die ist kompliziert, unvollständig und englisch geschrieben. Selbstverständlich wurden bei dem Code den man da downloaden kann noch 200 externe Komponenten hinzugefügt, damit man es jaaa nicht ausführen kann.
Ich brauche keinen Schreibzugriff oder so, sondern nur die Möglichkeit:
-Alle User aufzulisten
-Alle Gruppen aufzulisten
---Die User einer Gruppe aufzulisten
-Nach einem einzelnen User zu suchen
---Seine Gruppen anzuzeigen
Delphi-Quellcode:
procedure TForm2.initAdsi(Sender: TObject);
var
aDomain : IAdsContainer;
aUsers : IEnumVariant;
aUser : IADsUser;
aGroup : IADsGroup;
V : OleVariant;
w : DWord;
VA : Variant;
bind :
String;
user :
String;
begin
bind:='
LDAP://OU=***,OU=***,DC=***,DC=***,DC=***';
// Interface für die Domäne anfordern
aDomain := GetObject(bind)
as IAdsContainer;
VA := VarArrayCreate([ 0, 0 ], varVariant);
VA[0] := '
user';
aDomain.Filter := VA;
aUsers := (aDomain._NewEnum)
as IEnumVariant;
while aUsers.Next(1, V, w) = S_OK
do
begin
user := aUser.
Name;
if user = '
muster thomas'
then begin
ShowMessage(aUser.Department);
end;
end;
end;
Ich dachte mir, so irgendwie könnte ich mal einen User finden, aber falsch gedacht...gefunden habe ich nur Zugriffsverletzungen
Hat jemand von euch schonmal mit ADSI gearbeitet und hat ein einfaches (!!!!) Beispiel?