VBS & ADSI Probléme de création de "dossier de base"

VBS & ADSI Probléme de création de "dossier de base" - VB/VBA/VBS - Programmation

Marsh Posté le 22-10-2008 à 20:21:39    

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...
 
Je vous mets mon petit Script:
 
 

Code :
  1. 'Déclarations des variables
  2. Dim oUO
  3. Dim oUtilisateur
  5. 'Initialisation de la variable oUO
  6. Set oUO = GetObject("LDAP://ou=ici,dc=test,dc=local" )
  8. 'Filtre pour ne garder que les utilisateurs dans l'UO sélectionner précédemment
  9. oUO.Filter = Array("User" )
  11. 'Boucle qui va parcourir tous les utilisateurs
  12. For Each oUtilisateur in oUO
  13. oUtilisateur.Put "HomeDrive","Z:"
  14. oUtilisateur.Put "HomeDirectory","\\theserver\base\" + oUtilisateur.sAMAccountName
  15. oUtilisateur.SetInfo
  16. 'Fin de la boucle
  17. Next
  18. MsgBox "Traitement Terminé"


 
Si quelqu'un a une idée...
Merci d'avance à tout le monde

Reply

Marsh Posté le 22-10-2008 à 20:21:39   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed