Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' Create an OU
- Set objDomain = GetObject("LDAP://dc=dt3adrlsdml,dc=cours,dc=edu")
- Set objOU = objDomain.Create("organizationalUnit", "ou=educ-plusinc")
- objOU.SetInfo ' niveau 0 OU
- Set objOU = objDomain.Create("organizationalUnit", "ou=Montreal-OU,ou=educ-plusinc")
- objOU.SetInfo ' niveau 1 OU
- Set objOU = objDomain.Create("organizationalUnit", "ou=Direction,ou=Montreal-OU,ou=educ-
- plusinc")
- objOU.SetInfo ' niveau 2 OU
- Set objOU = objDomain.Create("organizationalUnit", "ou=Ressources humaines,ou=Montreal-
- OU,ou=educ-plusinc")
- objOU.SetInfo ' niveau 3 OU
- Set objOU = objDomain.Create("organizationalUnit", "ou=Ventes,ou=Montreal-OU,ou=educ-
- plusinc")
- objOU.SetInfo ' niveau 4 OU
- Set objOU = objDomain.Create("organizationalUnit", "ou=Informatique,ou=Montreal-OU,ou=educ-
- plusinc")
- objOU.SetInfo ' niveau 5 OU
- Set objOU = objDomain.Create("organizationalUnit",
- "ou=Programmation,ou=Informatique,ou=Montreal-OU,ou=educ-plusinc")
- objOU.SetInfo ' niveau 5a OU
- Set objOU = objDomain.Create("organizationalUnit",
- "ou=Reseautique,ou=Informatique,ou=Montreal-OU,ou=educ-plusinc")
- objOU.SetInfo ' niveau 5b OU
- wscript.echo "Complete for Montreal-OU - congratulation"
Advertisement
Add Comment
Please, Sign In to add comment
