Active Directory - Abfrage

[Maya]

Hallo ihr Lieben,

unsere Admins kamen auf die Idee, da ich ja in meinen Postbuch unsere Mitarbeiter abspeichern möchte, ich die doch immer aktuell aus dem Active Directory abfragen könnte. Tolle Idee, muss ich zugeben, wenn da nicht das Problem der Abfrage wäre.

Wenn ich in meinen Testprogramm auf einen Button klicke, soll er mir einfach mal alle Leutz in einen Memo darstellen.

Delphi-Quellcode:

  DataModule2.qry1.Close;
  DataModule2.con1.Close;
  DataModule2.con1.Open;
  DataModule2.qry1.Open; //< DA KNALLT'S!
  DataModule2.qry1.First;

  while not DataModule2.qry1.Eof do
    begin
      mmo1.Lines.Add(DataModule2.qry1.FieldByName('displayname').AsString);
      DataModule2.qry1.Next;
    end;

In der Query ist folgender Text:

Code:

SELECT top 10(*) FROM 'LDAP:\\*****.lan'

Die Verbindung kann er ja scheinbar aufbauen, aber die Abfrage funktioniert nicht, da meint er immer, dass mindestens ein Fehler vorhanden ist.

Wie muss die Domäne z.B. aussehen? Wir sind hier uns alle ein wenig unsicher, ob die so richtig ist, wie wir sie uns dachten und probierten schon mehrere Sachen aus. Könnt ihr mal ein Beispiel nennen?

Danke, das Maya

[s.h.a.r.k]

Was genau für eine Fehlermeldung erscheint denn?

[Maya]

"Exception-Klasse EOleException mit Meldung 'Der Befehlt enthielt mindestens einen Fehler'."

Hab's auch schon mit "DC=***,DC=lan" probiert und da kommt die gleiche Fehlermeldung.

[Uwe Raabe]

Was für eine Komponente verbirgt sich denn hinter qry1?

[Maya]

Übrigens, ich benutze die ADO-Komponenten für die Query und die Connection.

[Uwe Raabe]

Versuch's mal mit "/" anstatt "\".

[Maya]

Leider klappt das auch nicht. -.-

Mit dem Active Directory Explorer habe ich keine Probleme, mir die ganzen Strukturen und Einträge anzusehen. Also habe ich zumindest Leserechte darauf.

[Maya]

Sry für Doppelpost.

Also, maybe habe ich das Problem ein klein wenig eingeschränkt?
Ich hab den Quelltext mal ein wenig abgewandelt.

Delphi-Quellcode:

procedure TForm1.btn2Click(Sender: TObject);
begin
  DataModule2.con1.Close;
  DataModule2.con1.Open;

  Datamodule2.qry1.Close;
  DataModule2.qry1.SQL.Clear;
  datamodule2.qry1.SQL.Add('SELECT TOP 10 (*) FROM ''LDAP:\\DC=****,DC=lan''');
  DataModule2.qry1.Open;  //< Wieder knallt es HIER! 
  DataModule2.qry1.First;

  while not DataModule2.qry1.Eof do
    begin
      mmo1.Lines.Add(DataModule2.qry1.FieldByName('displayname').AsString);
      DataModule2.qry1.Next;
    end;
end;

Wenn es knallt, dann kommt diesmal aber ein klein wenig anderer Fehler:

Zitat:

Exception-Klasse EAccessViolation mit Meldung 'Zugriffsverletzung bei Adresse 004F844B in Modul 'TestADO.exe'."

[generic]

Schau dir mal im Internet nach ADSI und Delphi.
Da gibt es paar super Webseiten zu.

[Maya]

Zitat:

Zitat von generic (Beitrag 1162528)

Schau dir mal im Internet nach ADSI und Delphi.
Da gibt es paar super Webseiten zu.

Darauf kam ich auch schon, aber hilft mir nicht wirklich weiter bei meinen Problem, außer du findest eine entsprechende Lösung für mich.