[VBS]Active directory et VBScript

Bonjour,
J'ai un script a écrire contrôlant si un utilisateur existe dans une base active directory. J'effectue donc le parcours de tous les utilisateurs dans chaque OU. Le problème est que mon architecture est la suivante :
OUgénérale
-OU1
+sousOU1
+sousOU2
+sousOUn
-OU2
+etc...
Je n'arrive pas dans mon parcours à faire 2 pour imbriqués et à leur affecter des filtres par "organizational unit"

voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

'Set ColOU = GetObject ("LDAP://OU=ou1,DC=domaine,DC=domaineg") 'ColOU.Filter = Array("organizationalunit") 'For each organizationalunit in ColOU ' Set varOU = organizationalunit ' Set OU_Promo = GetObject("LDAP://ou=" & varOU & ",ou=" & ougeneral & "," & DomainPath) ' OU_Promo.Filter = Array("organizationalunit") ' For each varOU In OU_promo ' Set OU_User = GetObject("LDAP://ou=" & organizationalUnit & ",OU=" & OUpromo & ",ou=" & ougeneral & "," & DomainPath) ' OU_User.Filter = Array("user") ' For Each user in OU_User ' If Lcase(User.Sn) = Lcase(Nom) And Lcase(User.GivenName) <> Lcase(Prenom) Then ' Login = Login & Left(Prenom, 1) ' End If ' Next ' Next 'Next

---

Merci

Je n'ai pas tout approndi, mais, déjà, il me semble que certains " ou " devraient être des ""OR "

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

'Set ColOU = GetObject ("LDAP://OU=ou1,DC=domaine,DC=domaineg") 'ColOU.Filter = Array("organizationalunit") 'For each organizationalunit in ColOU ' Set varOU = organizationalunit ' Set OU_Promo = GetObject("LDAP://[b]ou[/b]=" & varOU & ",[b]ou[/b]=" & ougeneral & "," & DomainPath) ' OU_Promo.Filter = Array("organizationalunit") ' For each varOU In OU_promo ' Set OU_User = GetObject("LDAP://ou=" & organizationalUnit & [b]",OU[/b]=" & OUpromo & ",[b]ou[/b]=" & ougeneral & "," & DomainPath) ' OU_User.Filter = Array("user") ' For Each user in OU_User ' If Lcase(User.Sn) = Lcase(Nom) And Lcase(User.GivenName) <> Lcase(Prenom) Then ' Login = Login & Left(Prenom, 1) ' End If ' Next ' Next 'Next

---

Ici OU signifie Organizational Unit et je n'ai pas besoin de balises car je suis en VBscript. Merci encore pour votre aide.