vbslps
Messages postés2Date d'inscriptionlundi 25 août 2008StatutMembreDernière intervention26 août 2008
-
26 août 2008 à 14:53
vbslps
Messages postés2Date d'inscriptionlundi 25 août 2008StatutMembreDernière intervention26 août 2008
-
26 août 2008 à 14:55
Bonjour,
Voici mon petit script, pour le moment simple mais qui me fait déjà bloquer. Il me permet de créer une arborescence lors de la création d'une nouvelle Business Unit dans mon AD. Voilà le hic est qu'après une messagebox dans laquelle il suffit de renseigner le nom du nouveau BU, mon script doit créer plusieurs OU à des lieux différents mais en récupérant ce même nom.
Mon soucis se trouve surligner en rouge:
'Déclaration des variables
Dim NewOU1, NewOU2, objOU1, objOU2, objOUdr, objOUic, objOUprod, objOUprosp
'Chemins LDAP nécessaires
Set objOU1 = GetObject("LDAP://cheminLDAP1")
Set objOU2 = GetObject("LDAP://cheminLDAPdifférentdupremier")
NewOU1 = InputBox("Veuillez entrer le nom du pôle à créer")
'Création des OU "source"
Set NewOU1 = objOU1.Create("organizationalUnit", "OU=" & NewOU1)
NewOU1.SetInfo
Set NewOU2 = objOU2.Create("organizationalUnit", "OU=" & NewOU1)
NewOU2.SetInfo