Discussion :

[M E H D I]

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:

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[M E H D I]

J'ai oublié d'indiquer le numéro de port dans mon script

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
et rs = conn.Execute( _
            "<aaa-bbb-ccc.dd.ffff.gggg.fr:portNumber/ou=kkkk,o=gggg,c=fr>;" _
            & "(objectClass=application);column1,column2;subtree")

Avec cette syntaxe le problème est résolu.