Probleme mit ADSI

[siles]

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?