Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1038 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. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  6. wscript.echo "Le script commence. Cliquez OK pour continuer."
  7. DIM arrRecord
  8. Const ForReading = 1
  9. ''''''''''''''''''''''''''''''''''''''''''''''''
  10. ' Determine le chemin LDAP de votre domaine
  11. ' Rien dans cette partie ne doit etre changé
  12. ''''''''''''''''''''''''''''''''''''''''''''''''
  13. Set Root = GetObject("LDAP://RootDSE" )
  14. DomainPath = Root.Get("DefaultNamingContext" )
  15. ''''''''''''''''''''''''''''''''''''''''''''''''
  16. ' Obtenez l'indicateur à votre objet de domaine
  17. ' Rien dans cette partie ne doit etre changé
  18. ''''''''''''''''''''''''''''''''''''''''''''''''
  19. Set Domain = GetObject("LDAP://" & DomainPath)
  20. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  21. ' Pour indiquer l'OU où mettre les utilisateurs
  22. '
  23. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  24. Set ou_HR = GetObject("LDAP://OU=etudiants, " & DomainPath)
  25. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  26. ' L'objet du fichier systeme est votre point d'entrée dans le fichier système
  27. ' Rien dans cette partie ne doit etre changé
  28. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  29. set fso = CreateObject ("Scripting.FileSystemObject" )
  30. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  31. ' Pour retrouver le fichier texte dans C:\ADSI\users.txt
  32. ' Le nom et l'emplacement peuvent etre modifiés
  33. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  34. Set tsTextFile = fso.OpenTextFile ("C:\etudiants.txt", ForReading, False)
  35. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  36. ' Commence à lire le fichier rentré, début de la boucle
  37. '
  38. ' Lit une ligne du fichier
  39. '
  40. ' Rien dans cette partie ne doit etre changé
  41. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  42. While Not tsTextFile.AtEndOfStream    ' START OF LOOP
  43. strRecord = tsTextFile.ReadLine
  44. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  45. ' Découpe la ligne en plusieurs segments délimités par le délimiteur spécifié
  46. ' (Vous pouvez changer le délimiteur)
  47. ' mettre chaque segment dans une rangée nommée arrRecord
  48. ' Le premier segment est référencé par arrRecord(0)
  49. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  50. arrRecord = Split (strRecord, ":" )
  51. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  52. ' Création de l'utilisateur dans l'OU
  53. ' Rien dans cette partie ne doit etre changé
  54. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  55. Set adsUser = ou_HR.Create("user", "CN=" & arrRecord(2))
  56. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  57. ' Définit les sAMAccountName et userPrincipalName
  58. ' attribués pour chaque utilisateur
  59. ' Rien dans cette partie ne doit etre changé
  60. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  61. adsUser.Put "sAMAccountName",  arrRecord(2)
  62. adsUser.Put "userPrincipalName", arrRecord(2)
  63. adsUser.SetInfo
  64. ''''''''''''''''''''''''''''''''''''''''''''''''''''''
  65. ' Active le compte qui est désactivé par défaut
  66. '
  67. ' Rajoute les attributs aditionnés listés dans le fichier texte
  68. '
  69. ' Dans cet exemple, l'attribut de description sera
  70. ' rempli dans le second (1) segment
  71. ' et l'attribut du nom affiché est pris du troisième
  72. ' (2) segment
  73. '
  74. ' Changez cette partie d'attributs add/change
  75. ' rentrés dans le fichier texte
  76. ''''''''''''''''''''''''''''''''''''''''''''''''''''''
  77. adsUser.AccountDisabled = False
  78. adsUser.sn = arrRecord(0)
  79. adsUser.GivenName = arrRecord(1)
  80. adsUser.homeDirectory = "\\SERVERVM\homedir\" & arrRecord(2)
  81. adsUser.homeDrive = "G:"
  82. '''''''''''''''''''''''''''''''''''''''''''''''''
  83. ' SetInfo flushes the attributes in cache to disk
  84. ' Rien dans cette partie ne doit etre changé
  85. '''''''''''''''''''''''''''''''''''''''''''''''''
  86. adsUser.SetInfo
  87. '''''''''''''''''''''''''''''''''''''''''''''''''''''''
  88. ' Efface adsUser pour le prochain utilisateur
  89. ' Rien dans cette partie ne doit etre changé
  90. '''''''''''''''''''''''''''''''''''''''''''''''''''''''
  91. Set adsUser = Nothing
  92. Wend                                   ' END OF LOOP
  93. ''''''''''''''''''''''''''''''''''''''''''''''''
  94. ' Ferme le fichier texte
  95. ' Rien dans cette partie ne doit etre changé
  96. ''''''''''''''''''''''''''''''''''''''''''''''''
  97. tsTextFile.Close
  98. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  99. ' Boite de dialogue finie
  100. ' Rien dans cette partie ne doit etre changé
  101. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  102. 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


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