VB script intégration OU Active Directory

Bonjour,

Je voudrais assembler en VB un script permettant d'ajouter une OU dans l'Active Directory et dans le même script ajouter une autre OU dans l'OU ajouter en premier

Pour être plus claire

ajout d'un OU informatique et dedans y placer une OU utilisateur

J'ai pensé à cela

Ajout OU informatique

Set objDomain = GetObject("LDAP://dc=apeco,dc=lan")
set objOU = objdomain.Create("organizationalUnit", "ou=Informatique")
ObjOU.setinfo

Ajout OU utilisateur dans informatique

Set objOU = GetObject("LDAP://ou=Informatique,dc=apeco,dc=lan)
Set objOU = objOU.Create("organizationalUnit",cn=utilisateurs")

Pouvez-Vous m'aider dans l'assemblage de ce script


En vous remercient d'avance pour vos réponse.