ADSI // LDAP // Domaine Multiple
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:
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 |
