Bonjour à tous,
Je rencontre un problème de requetage avec LDAP et ADSI.
En effet tant que je reste sur le domaine sur lequel est rattaché ma machine, je ne rencontre aucun problème. Dès que je change de domaine, même si celui-ci est aprouvé ma connexion à l'AD se fait, mais je n'obtient rien dans mon recordSet. Je ne sais pas si celà provient réellement du code ou de la ma requête LDAP....
Mais à votre bon coeur si vous avez une idée, car je suis pas loin de me flageller avec mes propres globles occulaires.


Je vous joint quand même le code défois que vous trouviez un truc anormal...
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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Option Explicit
Dim ObjRootDSE
Dim adoConnexion
Dim AdoRecordset
Dim strDomainPath,Requete,i,Nom
 
Set ObjRootDSE = GetObject("LDAP://RootDSE")
'StrDomainPath = "OU=Lyon,DC=Domaine_Ma_Machine,DC=FR" --> Fonctionne
StrDomainPath = "OU=Agences,OU=Postes,DC=Domaine1,DC=COM"
 
 
Set adoConnexion = WScript.CreateObject("ADODB.Connection")
adoConnexion.Provider = "ADsDSOObject"
 
adoConnexion.Open
'Verification de la connexion
	If adoConnexion.State = 1 Then
		WScript.Echo "Connexion avec AD etablie"
	Else
		WScript.Echo "Pas de connexion à l'AD"
		WScript.Quit
	End If
	Requete="<LDAP://" & strDomainPath & ">;(Objectclass=computer);Name;Subtree"
	'Alimentation du Recordset 	
	Set adoRecordset = adoConnexion.Execute (Requete)
	'Lecture du Recordset
	While Not adoRecordset.EOF
		Nom=adoRecordset.Fields.Item("Name").Value
		i=i+1
		adoRecordset.MoveNext
	Wend
	wscript.echo "Nbr de Machines : " i
	'Fermer les connexions
	adoRecordset.Close
	adoConnexion.Close