LDAP durchsuchen

lionking

Wir haben hier eine Samba-Umgebung. Aus dem LDAP möchte ich jetzt bestimmte Informationen für einen Benutzer auslesen. Mit Hilfe von verschiedenen Scripts, die ich gefunden habe, konnte ich zumindest den Zugriff auf den Server erreichen.
Bisher löse ich das Auffinden der Daten mit einer Schleife. Das dauert allerdings recht lange. Gibt es eine Möglichkeit, direkt auf die Daten eines bekannten Users zuzugreifen?

Hier wird z. B. der vollständige Name eines Users abgefragt:

[autoit]

Const $LDAPBaseDN = "ou=people,dc=firma,dc=com"
Const $LDAPPort = "389"
Const $LDAPServer = "server"
Const $LDAPAddress = $LDAPServer & ":" & $LDAPPort & "/" & $LDAPBaseDN

[/autoit][autoit][/autoit][autoit]

$ObjLDAP = ObjGet ("LDAP://" & $LDAPAddress)
If @error Then
MsgBox (4096, "LDAP Connection", $LDAPServer & " connection error")
Exit
EndIf
For $ObjMembers In $ObjLDAP

[/autoit][autoit][/autoit][autoit]

if $ObjMembers.uid = "username" then
MsgBox (0,"",$ObjMembers.cn)
EndIf
next

[/autoit]

**water**

Soweit ich Samba verstehe, stellt es Windows Dienste auf Linux Servern bereit. Das Verzeichnis (BTW: LDAP ist kein Verzeichnis, sondern ein Protokoll um auf einen Verzeichnisdienst zuzugreifen) sollte daher mit Windows Active Directory kompatibel sein.
In dem Fall kannst Du ja mal mein Active Direcory UDF (für Download siehe Signatur) testen. Mit _AD_GetObjectAttribute kannst Du einzelne Attribute eines Objectes (User, Computer, Group ..) auslesen, mit _AD_GetObjectProperties gleich mehrere.

lionking

Danke für den Tip. Ich habe mal versucht, das damit umzusetzen und das entsprechende Beispiel dazu gestartet.
Leider wird mir eine Fehlermeldung angezeigt:

Code

C:\Program Files (x86)\AutoIt3\Include\AD.au3 (621) : ==> Error in expression.:
Local $sAD_SchemaNamingContext = $oAD_RootDSE.Get("SchemaNamingContext")
Local $sAD_SchemaNamingContext = ^ ERROR

Win7 x64
AutoIT 3.3.6.1

**water**

Welches Beispiel hast Du verwendet bzw. wie sieht Dein Code aus?
Welche Version des AD UDFs verwendest Du (steht im Header unter "UDF Version")?

lionking

Ich habe das Beispielscript _AD_GetGCAttributes.au3 ohne Veränderung gestartet.
; UDF Version ...: 1.0.0

**water**

Zitat von lionking

Ich habe das Beispielscript _AD_GetGCAttributes.au3 ohne Veränderung gestartet.
; UDF Version ...: 1.0.0

Versuch mal das Beispiel _AD_GetObjectAttribute.au3.
_AD_GetGCAttributes gibt dir alle Attribute des Globalen Catalogs zurück - ob das mit Samba geht ist nicht ganz klar. Diese Funktion bringt aber eh nicht das was Du brauchst.

lionking

Bei dem Script werden auch mehrere Meldungen ausgegeben. Als Beispiel habe ich mal einen Screenshot der ersten Meldung angefügt.
Das scheint in Zusammenarbeit mit Samba wohl nicht zu funktionieren.

**water**

Was mich nur wundert ist, dass _AD_Open fast problemlos durchgelaufen ist (also die Verbindung zum Verzeichnis hergestellt hat).
Das Skript meckert $oAD_Command an, was als einer der letzten Befehle in _AD_Open angelegt wird. Leider frage ich dort keinen Fehler mehr ab, da ich annehme, dass das nach erfolgreicher Anmeldung auf jeden Fall funktioniert.
Kannst Du in das Beispielskript _AD_GetObjectAttribute.au3 bitte die Zeile "$iAD_Debug = 2" nach "_AD_Open()" einbauen?
Dann sehen wir jeden COM Fehler und können die Sache vielleicht doch noch hinkriegen.

Bin in ca. 1 Stunde über's WE weg und kann mich dann frühestens Montag melden.

Edit: Mit welchem Betriebssystem/Version läuft der PC?

lionking

Kein Problem, ich bin ja in einem Forum und nicht bei der 1h-Sofort-Hotline.

Ich habe mal die Screenshots angehängt, die nach dem ergänzen der Zeile erscheinen.

**water**

S...t! Mein Fehler!
Kannst Du die Zeile "$iAD_Debug = 2" bitte VOR "_AD_Open()" einfügen und dann die Fehlermeldungen nochmals posten?

lionking

Hier der neue Screenshot. Die Domäne wird wohl nicht gefunden.
Die nachfolgenden Meldungen scheinen die gleichen zu sein, wie ich oben schon geschrieben habe.

**water**

OK, schon besser (zumindest was die Fehlerbehandlung angeht).
Mein Beispielskript ist auch schlecht programmiert, da es den Fehlercode von _AD_Open nicht abfängt - muss ich bei Gelegenheit nachholen.

Nun besteht für Dein Problem noch die Möglichkeit zu prüfen, wie man Samba z.B. über Visual Basic anspricht. Dann könnte man ev. die richtigen Parameter an _AD_Open übergeben.

Welche Version von Samba setzt Ihr ein?

Edit: Bin dann mal weg!

lionking

Zitat von lionking

Win7 x64
AutoIT 3.3.6.1

Samba Version ist die 3.4.7

Das habe ich zu VB gefunden, allerdings habe ich von VB keine Ahnung: http://support.microsoft.com/default.aspx?scid=kb;en-us;Q328024

**water**

Das Format des FQDN im M$ Beispiel erinnert mich stark an den Novell Verzeichnisdienst. Diesen konnten wir leider nicht mit der AD UDF automatisieren.
Aber das kurze M$ Beispiel sollte sich relativ einfach auf AutoIt umstellen lassen.
Wie sollen wir das Problem angehen?

lionking

Ich bin ja nicht sicher, ob mein Script aus dem Anfangsposting überhaupt anders gestaltet werden kann. Die Funktion an sich hat es ja, aber die Frage war ja eigentlich, ob man die Informationen einfacher und schneller bekommt, als mit der if-Schleife einfach sämtliche Einträge abzuklappern.
Dazu fehtl mir halt das nötige Wissen zu LDAP-Zugriffen unter Samba.
Vielleicht hat ja jemand anderes noch eine Idee, der aus der Samba-Ecke kommt?

**water**

Zitat von lionking

... Die Funktion an sich hat es ja, aber die Frage war ja eigentlich, ob man die Informationen einfacher und schneller bekommt, als mit der if-Schleife einfach sämtliche Einträge abzuklappern. ...

Das geht! Das M$ Beispiel macht es vor. Das abzufragende Objekt wird direkt angegeben.
Du kannst entweder die Teile die beim M$ Beispiel das Objekt ansprechen in Dein Skript einfügen oder das M$ Beispiel komplett nach Autoit transferieren.
Etwas Unterstützung kann ich auf jeden Fall geben.

lionking

Ich habe noch etwas gesucht und ein Beispiel gefunden.
http://www.autoitscript.com/forum/topic/24…post__p__171183

Dabei wird der Suchbegriff direkt in den Server-Aufruf mit eingebunden. Schneller ist das aber trotzdem nicht. Der Code ist aber kürzer und evtl. wird der Server nicht so stark belastet. Das ist aber nur eine Vermutung.

[autoit]

Const $LDAPBaseDN = "ou=people,dc=domain,dc=com"
Const $LDAPPort = "389"
Const $LDAPServer = "server"
Const $LDAPAddress = $LDAPServer & ":" & $LDAPPort & "/" & $LDAPBaseDN
$LDAPSearch = ObjGet ("LDAP://" & $LDAPServer & ":" & $LDAPPort & "/uid=" & @UserName & "," & $LDAPBaseDN)
If @error Then
MsgBox (4096, "LDAP-Verbindung", "Fehler beim Verbindugnsaufbau zu " & $LDAPServer)
Exit (-1)
EndIf
MsgBox (0,"",$LDAPSearch.cn)

[/autoit]

Ich denke also, daß das einfach nicht schneller geht.
Danke für die tolle Unterstützung.

**water**

Wie schnell geht ein Aufruf?
Wenn Du mehrere Abfragen hintereinander benötigst, dann geht es schneller, wenn die Verbindung erstellt wird, dann alle Abfragen ausgeführt werden und dann die Verbindung wieder abgebaut wird.

lionking

Der erste Aufruf dauert ca. 10 Sekunden vom starten der EXE bis zum Ergebnis.
Bei weiteren Aufrufen bekomme ich das Ergebnis quasi sofort.

**water**

Zitat von lionking

Der erste Aufruf dauert ca. 10 Sekunden vom starten der EXE bis zum Ergebnis.
Bei weiteren Aufrufen bekomme ich das Ergebnis quasi sofort.

10 Sekunden ist etwas lang. Aber da es nur ein Statement gibt (ObjGet), lässt sich vermutlich nicht viel optimieren.