Lsxldap.dll & Domino 8.5.3

Function SearchLDAP(userName As String) As String
 
Dim objConnection As Variant
Dim objCommand As Variant
Dim objRecordSet As Variant
 
Const ADS_SCOPE_SUBTREE = 2
 
On Error Goto errHandler
 
Set objConnection = CreateObject("ADODB.Connection")
 
Set objCommand = CreateObject("ADODB.Command")
 
objConnection.Provyder = "ADsDSOObject"
 
objConnection.Open "Active Directory Provyder"
 
Set objCommand.ActiveConnection = objConnection
 
objCommand.Properties("Page Size") = 1000
 
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
 
Note: Ive used cn field of Active Directory for selection, Other fields like, mail, sn etc can be used instead
objCommand.CommandText = "SELECT * FROM LDAP://10.14.1.206 WHERE cn="+userName+" "                   Modify thys line with your actual LDAP server name
 
Set objRecordSet = objCommand.Execute
 
If ( objRecordSet.RecordCount = 0 ) Then
SearchLDAP="0"
Else
SearchLDAP="1"
End If
 
objRecordSet.close
 
Exit Function
errHandler:
Msgbox "Error is : " & Error$ & " at line number : " & Cstr(Erl) & " in SearchLDAP() " & " while processing user : " & userName
Exit Function
End Function

ldapEnv.put(Context.INITIAL_CONTEXT_FACTORY,"com.sun.jndi.ldap.LdapCtxFactory");