Domino 9 und frühere Versionen > ND8: Entwicklung

LDAP Abfrage gegen Active Directory

<< < (2/4) > >>

NDB:
Hallo,
so sollte es gehen:

nur Personen:
*** WHERE objectCategory='Person' AND objectClass='user'"

nur Gruppen:
*** WHERE objectClass='group'"

nur Computer:
*** WHERE objectClass='computer'

Lloyd:
Hi,
so geht es.

Vielen Dank.

pimpfling:
Hallo,

das ganze hat mich neugierig gemacht und ich wollte das mal gegen unser Domino LDAP probieren.
leider klappt das nicht so ganz. Evtl kann mir jemand sagen warum.

Code:

--- Code: --- Sub Initialize
Dim ws As New NotesUIWorkspace
Dim s As New NotesSession
Dim db As NotesDatabase
Dim objConnection As Variant
Dim objCommand As Variant
Dim objRecordSet As Variant
Dim test As string

Set db = s.CurrentDatabase
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.CommandText = "Select cn, uid, sn, mail, mailaddress, location, objectclass FROM 'LDAP://dominoserver.domain.de' WHERE objectClass='person'"
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

Print "Command Status: " + CStr(objCommand.state)
Print "RecordSet PageCount: " + CStr(objRecordSet.PageCount)

MsgBox CStr(objRecordSet.RecordCount) + ":" + CStr(objRecordSet.Fields.Count)

Do Until objRecordSet.EOF

Print CStr(objRecordset.AbsolutePage) + ":" + CStr(objRecordset.AbsolutePosition)
test = CStr(objRecordSet.Fields("uid").Value)
Print test
objRecordSet.MoveNext
Loop
End Sub
--- Ende Code ---

Die Verbindung klappt. Ich bekomme die Anzahl der Einträge zurück, Beim Print des uid Values (variable test) bekomme ich aber ne Fehlermeldung: Type Mismatch unknown found, unknown expected.

m3:
Du machst eine Anonyme Verbindung auf. In dem Fall liefert Domino per default keine Details zurueck.

pimpfling:

--- Zitat von: m3 am 15.05.12 - 15:11:43 ---Du machst eine Anonyme Verbindung auf. In dem Fall liefert Domino per default keine Details zurueck.

--- Ende Zitat ---

hui, super schnelle Antwort :)
Wie kann ich mich anmelden? also technisch gesehen :)

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete