Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3005 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Problème de script création utilisateurs Active Directory

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Problème de script création utilisateurs Active Directory

n°1889199
m--o
Posté le 28-05-2009 à 22:08:22  profilanswer
 

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
mood
Publicité
Posté le 28-05-2009 à 22:08:22  profilanswer
 

n°2083296
toraken
Posté le 20-06-2011 à 11:18:22  profilanswer
 

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.


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Problème de script création utilisateurs Active Directory

 

Sujets relatifs
Probleme pour inserer flash dans HTMLLancement de service avec un script
Problème avec Find(), Excel Vbaproblème de script qui s'arrête avant la fin [RESOLU]
problème de jointure entre deux requette séparéles instructions fonctionnent mais pas le script
Problème vérification pseudoprobleme sur Algorithme
Plus de sujets relatifs à : Problème de script création utilisateurs Active Directory

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.052 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR