Connexion LDAP + export

Salut, je tente une connexion à un annuaire LDAP et j'ai l'erreur "Le tableau n'existe pas" je suis sûr que c'est un problème de paramètres.

Les informations que j'ai sont bonnes (j'ai tenté la connexion via LDAPBrowser et j'ai réussi).

Voici les informations concernant la connexion:

Citation:

serveur : aaa-bbb-ccc.dd.ffff.gggg.fr
port : 51456
base dn : ou=kkkk,o=gggg,c=fr
user : uid=uuuu,ou=hhhh,o=gggg,c=FR
pwd : pppp

Dans mon script vbs j'ai utilisé ces informations comme montré ci-dessous:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Set conn = CreateObject("ADODB.Connection") Set fso = CreateObject("Scripting.filesystemObject") Set sortie = fso.createtextfile("C:\File.csv") conn.Provider = "ADSDSOObject" conn.Open "Provider=ADsDSOObject;user ID=uid=uuuu,ou=hhhh,o=gggg,c=FR;password=pppp;data source=aaa-bbb-ccc.dd.ffff.gggg.fr;location=ou=kkkk,o=gggg,c=fr;" Set rs = conn.Execute( _ "<aaa-bbb-ccc.dd.ffff.gggg.fr/ou=kkkk,o=gggg,c=fr>;" _ & "(objectClass=application);column1,column2;subtree") sortie.writeline "column1" & ";" & "column2" While Not rs.EOF vVal = rs.Fields(1) testx = Replace(rs.Fields(0).Value,", ",",") sortie.writeline testx & ";" & vVal(0) rs.MoveNext Wend sortie.Close conn.Close
Je pense que mon erreur se situe au moment de l'ouverture de la connexion.

Pour information, j'ai enlevé la ligne 4 (conn.Provider = "ADSDSOObject") , puis j'ai relancé le script sans succès.

Qu'est ce qui ne va pas dans mon script?