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:
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
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.