Discussion :

[dibeloni]

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 :

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
'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

[jmfmarques]

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

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
'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

[dibeloni]

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