VBS & ADSI Probléme de création de "dossier de base"
Bonjour à tous, et toutes...
Je vous explique la situation, je créer un script en VB afin d'automatiser la création de dossier de base dans Active Directory.
Quand on le fait à la main depuis la console "utilisateurs et ordinateurs AD" se creer instantanément un répertoire avec le login de l'utilisateur.
EX: si je prends J.DUPOND j'indique un chemin \\serveur\base\J.DUPOND et une lettre z:, se créer un répertoire « J.DUPOND » dans le répertoire "base"
Mais
Avec mon script j'ai bien les infos dans l'AD, mais le répertoire ne créer pas...:evilred:
Je vous mets mon petit Script:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| 'Déclarations des variables
Dim oUO
Dim oUtilisateur
'Initialisation de la variable oUO
Set oUO = GetObject("LDAP://ou=ici,dc=test,dc=local")
'Filtre pour ne garder que les utilisateurs dans l'UO sélectionner précédemment
oUO.Filter = Array("User")
'Boucle qui va parcourir tous les utilisateurs
For Each oUtilisateur in oUO
oUtilisateur.Put "HomeDrive","Z:"
oUtilisateur.Put "HomeDirectory","\\theserver\base\" + oUtilisateur.sAMAccountName
oUtilisateur.SetInfo
'Fin de la boucle
Next
MsgBox "Traitement Terminé" |
Si quelqu'un a une idée...
Merci d'avance à tout le monde