Connection to OpenLDAP server with a ADODB connection

Hello,

I would like to set up a VBScript that will retrieve the information stored on an OpenLDAP server but I have some problems with the initialization of the connection, or rather the RecordSet object.
Can anyone tell me what's wrong in my script which appears below?

strUserLDAP = "cn=user,ou=connectors,dc=domain,dc=us"
strLDAPPassword = "ldapPassword"
sBaseDN =  "LDAP://ldap.domaine.us:389/ou=groups,dc=domain,dc=us"

Set oConnection = CreateObject("ADODB.Connection")
oConnection.Provider = "ADsDSOObject"
oConnection.Properties("User ID") = strUserLDAP
oConnection.Properties("Password") = strLDAPPassword
oConnection.Properties("Encrypt Password") = false
oConnection.Open "ADs Provider", strUserLDAP, strLDAPPassword
Set oCommand = CreateObject("ADODB.Command")
oCommand.ActiveConnection = oConnexion

sLDAPQuery = "<"& sBaseDN &">"
'sLDAPFilter = "(objectClass=*)"
sAttribut = "dn"
sLDAPQuery = sLDAPQuery & ";" & sLDAPFilter & ";" & sAttribut & ";onelevel"
oCommand.CommandText = sLDAPQuery

On Error Resume Next
Set oRecordSet = oCommand.Execute
If Err <> 0 Then
MsgBox "Impossible to get result !" & vbcrlf & "Description error:" & Err.description
WScript.Quit
Else
MsgBox "It's all right"
End If
Thanks for your help

What error do you get? If you are not getting an error, remove the On Error Resume next and see what error you get. Which specific line is causing the error?

Hello ebgreen,
 
The problem seems to occur at the line "Set oRecordSet oCommand.Execute =" ; when I create a Recordset object. The dialog box displays the following information:

Error: Error not specified
Code: 80004005
Source: Provider
 
An idea ?

The first thing that I see is:
 
sLDAPQuery = sRequeteLDAP & ";" & sLDAPFilter & ";" & sAttribut & ";onelevel"
 
but I don't see anywhere that you define sRequeteLDAP

It's actually a mistake when I wanted to translate French programm in a English program. I forgot to replace all the iterations sRequeteLDAP by sLDAPQuery.
In my original program (in French) all variables are defined. I also corrected the script that appears in my first message