LDAP-Abfrage für Novell eDirectory

localhorst · Beitrag von **localhorst** » 13.02.2013, 21:51

Einzelne Attribut-Abfrage

Set LDAPObj = GetObject("LDAP://" & LDAPServer & ":" & LDAPPort & "/" & LDAPContext)
WScript.Echo LDAPObj.ATTRIBUT

Komplexe Abfrage mit LDAP-Filter

Code: Alles auswählen

Set ado = CreateObject("ADODB.Connection") 'Neue ADO Connection erzeugen
ado.Provider = "ADSDSOObject" 'Die ADSI-Schnittstelle verwenden
ado.Properties("User ID") = "Anonymous" 'Benutzer für die LDAP-Abfrage
ado.Properties("Password") = "Pwd" 'Passwort des Benutzers
ado.Properties("Encrypt Password") = true 'Verbindung verschlüsseln
ado.Open "GetAllUsers" 'frei wählbarer Verbindungsname

Set objectList = ado.Execute("<LDAP://ldap.domain.de/cn=Nutzer,ou=Abteilung,o=Organisation>;(&(objectClass=user));ADSPath;" & LDAPSuchtiefe)

WScript.Echo objectList.RecordCount   'Gibt die Anzahl der gefundenen Einträge zurück.

While Not objectList.EOF                     'Hier wird die angeforderte Eigenschaft ADSPath verwendet
	WScript.Echo objectList.Fields(0).Value,
	objectList.MoveNext                      'Zum nächsten Suchergebnis weitergehen
Wend

ado.Close

Parameter für LDAPSuchtiefe

base -> nur das aktuelle Objekt zurückgeben (um zu überprüfen, ob es existiert)
onelevel -> nur den aktuellen Kontext durchsuchen
subtree -> alle Unterkontexte durchsuchen