Problème de script création utilisateurs Active Directory

Problème de script création utilisateurs Active Directory - VB/VBA/VBS - Programmation

Marsh Posté le 28-05-2009 à 22:08:22    

Bonjour, alors voici mon problème, j'ai utilisé un script que j'ai trouvé pour créer des utilisateurs dans l'AD par lot avec un fichier texte.
 
Il marche, mais y a juste un blem avec le homefolder (à la ligne 112). Dans les propriétés de l'utilisateur, le chemin du homefolder est bien là et est correct, mais le dossier n'est pas créé.
 
Quand j'ajoute un espace, que je le retire, et que je fais ok, le dossier est crée... Plutôt bizarre  :pt1cable:  
 
Vous avez une idée ?
 
Merci
 

Code :
  1. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  2. ' Script pour créer les utilisateurs dans Active Directory
  3. '
  4. ' Ce script lit et attribut les noms d'utilisateurs du fichier appelé users.txt
  5. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  7. wscript.echo "Le script commence. Cliquez OK pour continuer."
  9. DIM arrRecord
  10. Const ForReading = 1
  12. ''''''''''''''''''''''''''''''''''''''''''''''''
  13. ' Determine le chemin LDAP de votre domaine
  14. ' Rien dans cette partie ne doit etre changé
  15. ''''''''''''''''''''''''''''''''''''''''''''''''
  17. Set Root = GetObject("LDAP://RootDSE" )
  18. DomainPath = Root.Get("DefaultNamingContext" )
  21. ''''''''''''''''''''''''''''''''''''''''''''''''
  22. ' Obtenez l'indicateur à votre objet de domaine
  23. ' Rien dans cette partie ne doit etre changé
  24. ''''''''''''''''''''''''''''''''''''''''''''''''
  26. Set Domain = GetObject("LDAP://" & DomainPath)
  29. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  30. ' Pour indiquer l'OU où mettre les utilisateurs
  31. '
  32. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  34. Set ou_HR = GetObject("LDAP://OU=etudiants, " & DomainPath)
  37. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  38. ' L'objet du fichier systeme est votre point d'entrée dans le fichier système
  39. ' Rien dans cette partie ne doit etre changé
  40. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  42. set fso = CreateObject ("Scripting.FileSystemObject" )
  45. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  46. ' Pour retrouver le fichier texte dans C:\ADSI\users.txt
  47. ' Le nom et l'emplacement peuvent etre modifiés
  48. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  50. Set tsTextFile = fso.OpenTextFile ("C:\etudiants.txt", ForReading, False)
  53. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  54. ' Commence à lire le fichier rentré, début de la boucle
  55. '
  56. ' Lit une ligne du fichier
  57. '
  58. ' Rien dans cette partie ne doit etre changé
  59. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  61. While Not tsTextFile.AtEndOfStream    ' START OF LOOP
  63. strRecord = tsTextFile.ReadLine
  66. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  67. ' Découpe la ligne en plusieurs segments délimités par le délimiteur spécifié
  68. ' (Vous pouvez changer le délimiteur)
  69. ' mettre chaque segment dans une rangée nommée arrRecord
  70. ' Le premier segment est référencé par arrRecord(0)
  71. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  73. arrRecord = Split (strRecord, ":" )
  76. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  77. ' Création de l'utilisateur dans l'OU
  78. ' Rien dans cette partie ne doit etre changé
  79. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  81. Set adsUser = ou_HR.Create("user", "CN=" & arrRecord(2))
  84. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  85. ' Définit les sAMAccountName et userPrincipalName
  86. ' attribués pour chaque utilisateur
  87. ' Rien dans cette partie ne doit etre changé
  88. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  90. adsUser.Put "sAMAccountName",  arrRecord(2)
  91. adsUser.Put "userPrincipalName", arrRecord(2)
  92. adsUser.SetInfo
  95. ''''''''''''''''''''''''''''''''''''''''''''''''''''''
  96. ' Active le compte qui est désactivé par défaut
  97. '
  98. ' Rajoute les attributs aditionnés listés dans le fichier texte
  99. '
  100. ' Dans cet exemple, l'attribut de description sera
  101. ' rempli dans le second (1) segment
  102. ' et l'attribut du nom affiché est pris du troisième
  103. ' (2) segment
  104. '
  105. ' Changez cette partie d'attributs add/change
  106. ' rentrés dans le fichier texte
  107. ''''''''''''''''''''''''''''''''''''''''''''''''''''''
  109. adsUser.AccountDisabled = False
  110. adsUser.sn = arrRecord(0)
  111. adsUser.GivenName = arrRecord(1)
  112. adsUser.homeDirectory = "\\SERVERVM\homedir\" & arrRecord(2)
  113. adsUser.homeDrive = "G:"
  116. '''''''''''''''''''''''''''''''''''''''''''''''''
  117. ' SetInfo flushes the attributes in cache to disk
  118. ' Rien dans cette partie ne doit etre changé
  119. '''''''''''''''''''''''''''''''''''''''''''''''''
  121. adsUser.SetInfo
  124. '''''''''''''''''''''''''''''''''''''''''''''''''''''''
  125. ' Efface adsUser pour le prochain utilisateur
  126. ' Rien dans cette partie ne doit etre changé
  127. '''''''''''''''''''''''''''''''''''''''''''''''''''''''
  129. Set adsUser = Nothing
  130. Wend                                   ' END OF LOOP
  133. ''''''''''''''''''''''''''''''''''''''''''''''''
  134. ' Ferme le fichier texte
  135. ' Rien dans cette partie ne doit etre changé
  136. ''''''''''''''''''''''''''''''''''''''''''''''''
  138. tsTextFile.Close
  141. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  142. ' Boite de dialogue finie
  143. ' Rien dans cette partie ne doit etre changé
  144. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  146. wscript.echo "Utilisateurs créés.", Chr(10),Chr(10),"Cliquez pour finir."


Message édité par m--o le 29-05-2009 à 11:30:22
Reply

Marsh Posté le 28-05-2009 à 22:08:22   

Reply

Marsh Posté le 20-06-2011 à 11:18:22    

Bonjour, je ne sais pas si vous verrez ma réponse mais sous quel format avez vous enregistrer votre scipt s'il vous plait ?
 
Cordialement.

Reply

Sujets relatifs:

Leave a Replay

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