[ Résolu ! ] création comptes active directory en VBS

création comptes active directory en VBS [ Résolu ! ] - Windows & Software

Marsh Posté le 13-10-2004 à 14:33:22    

salut à tous,
 
Je viens de modifier un VBS pour créer des comptes utilisateurs pour AD,
Ca ne pose pas de problème pour la création, mais je n'arrive pas à insérer ces comptes "membre" d'un groupe .....
 
Voilà mon code:
 
 adsUser.sn = "NOM"
 adsUser.GivenName = "Prenom"
 adsUser.memberOf = "CN=profs,OU=profs,OU=ecole,DC=ecole,DC=com"
 
en précisant que mon domaine est "ecole.com", j'ai un OU nommée "profs" se trouvant dans une OU "ecole".
 
Pouvez vous m'aider ?
 
 
lim


Message édité par limvachlapdinos le 14-10-2004 à 12:05:38
Reply

Marsh Posté le 13-10-2004 à 14:33:22   

Reply

Marsh Posté le 13-10-2004 à 14:51:51    

Tu ne veux pas mettre le script en entier? ou nous donner un peu plus de details sur cette partie du script, parceque la ca n'est pas evident pour comprendre ce que tu essaye de faire.

Reply

Marsh Posté le 13-10-2004 à 14:52:11    

Dans mes souvenirs MemberOf c'est juste pour verifier l'apartenance a un groupe.
 
Faut plutot faire un truc du genre:
 
Set myGroup = GetObject(<le groupe> )
myGroup.Add(<le user> )
myGroup.SetInfo
 
je pense

Reply

Marsh Posté le 13-10-2004 à 15:10:16    

+1
Par contre ca n'est pas suffisant juste le nom du group et du user, il faut indiquer leurs DN respectifs.
Et .put a la place de .add peut etre, a voir.

Reply

Marsh Posté le 13-10-2004 à 15:14:56    

c fort possible que ce ne soit pas MemberOf qu'il faut utiliser....
 
 
 
Voila le script en entier:
 
 
 

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
  13. ''''''''''''''''''''''''''''''''''''''''''''''''
  14. ' Determine le chemin LDAP de votre domaine
  15. ' Rien dans cette partie ne doit etre changé
  16. ''''''''''''''''''''''''''''''''''''''''''''''''
  18. Set Root = GetObject("LDAP://RootDSE" )
  19. DomainPath = Root.Get("DefaultNamingContext" )
  22. ''''''''''''''''''''''''''''''''''''''''''''''''
  23. ' Obtenez l'indicateur à votre objet de domaine
  24. ' Rien dans cette partie ne doit etre changé
  25. ''''''''''''''''''''''''''''''''''''''''''''''''
  27. Set Domain = GetObject("LDAP://" & DomainPath)
  30. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  31. ' Pour indiquer l'OU où mettre les utilisateurs
  32. '
  33. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  35. Set ou_HR = GetObject("LDAP://OU=eleves,OU=ecole, " & DomainPath)
  38. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  39. ' L'objet du fichier systeme est votre point d'entrée dans le fichier système
  40. ' Rien dans cette partie ne doit etre changé
  41. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  43. set fso = CreateObject ("Scripting.FileSystemObject" )
  46. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  47. ' Pour retrouver le fichier texte dans C:\ADSI\users.txt
  48. ' Le nom et l'emplacement peuvent etre modifiés
  49. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  51. Set tsTextFile = fso.OpenTextFile ("C:\ADSI\users.txt", ForReading, False)
  54. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  55. ' Commence à lire le fichier rentré, début de la boucle
  56. '
  57. ' Lit une ligne du fichier
  58. '
  59. ' Rien dans cette partie ne doit etre changé
  60. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  62. While Not tsTextFile.AtEndOfStream    ' START OF LOOP
  64. strRecord = tsTextFile.ReadLine
  67. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  68. ' Découpe la ligne en plusieurs segments délimités par le délimiteur spécifié
  69. ' (Vous pouvez changer le délimiteur)
  70. ' mettre chaque segment dans une rangée nommée arrRecord
  71. ' Le premier segment est référencé par arrRecord(0)
  72. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  74. arrRecord = Split (strRecord, ":" )
  77. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  78. ' Création de l'utilisateur dans l'OU
  79. ' Rien dans cette partie ne doit etre changé
  80. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  82. Set adsUser = ou_HR.Create("user", "CN=" & arrRecord(2))
  85. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  86. ' Définit les sAMAccountName et userPrincipalName
  87. ' attribués pour chaque utilisateur
  88. ' Rien dans cette partie ne doit etre changé
  89. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  91. adsUser.Put "sAMAccountName",  arrRecord(2)
  92. adsUser.Put "userPrincipalName", arrRecord(2)
  93. adsUser.SetInfo
  96. ''''''''''''''''''''''''''''''''''''''''''''''''''''''
  97. ' Active le compte qui est désactivé par défaut
  98. '
  99. ' Rajoute les attributs aditionnés listés dans le fichier texte
  100. '
  101. ' Dans cet exemple, l'attribut de description sera
  102. ' rempli dans le second (1) segment
  103. ' et l'attribut du nom affiché est pris du troisième
  104. ' (2) segment
  105. '
  106. ' Changez cette partie d'attributs add/change
  107. ' rentrés dans le fichier texte
  108. ''''''''''''''''''''''''''''''''''''''''''''''''''''''
  110. adsUser.AccountDisabled = False
  111. adsUser.sn = arrRecord(0)
  112. adsUser.GivenName = arrRecord(1)
  113. adsUser.homeDirectory = "\\serveur\partages"
  114. adsUser.homeDrive = "Z:"
  115. adsUser.memberOf = "CN=profs,OU=profs,OU=ecole,DC=ecole,DC=com"
  117. '''''''''''''''''''''''''''''''''''''''''''''''''
  118. ' SetInfo flushes the attributes in cache to disk
  119. ' Rien dans cette partie ne doit etre changé
  120. '''''''''''''''''''''''''''''''''''''''''''''''''
  122. adsUser.SetInfo
  125. '''''''''''''''''''''''''''''''''''''''''''''''''''''''
  126. ' Efface adsUser pour le prochain utilisateur
  127. ' Rien dans cette partie ne doit etre changé
  128. '''''''''''''''''''''''''''''''''''''''''''''''''''''''
  130. Set adsUser = Nothing
  131. Wend                                   ' END OF LOOP
  134. ''''''''''''''''''''''''''''''''''''''''''''''''
  135. ' Ferme le fichier texte
  136. ' Rien dans cette partie ne doit etre changé
  137. ''''''''''''''''''''''''''''''''''''''''''''''''
  139. tsTextFile.Close
  142. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  143. ' Boite de dialogue finie
  144. ' Rien dans cette partie ne doit etre changé
  145. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  147. wscript.echo "Utilisateurs créés.", Chr(10),Chr(10),"Cliquez pour finir."


 
 
Je pense avoir trouvé un code sur un autre script:
 
 

Code :
  1. set oGroup=objGroup.Create("Group","cn="&strGroupes)
  2.   oGroup.Add objStudent.AdsPath
  3.   set oGroup=Nothing


 
Vous pensez que c possible de l'insérer ??
 
 
Merci en tt cas pour votre interet sur mon probleme !
 
 
lim

Reply

Marsh Posté le 13-10-2004 à 15:18:06    

Ma modif fausse est ligne 115,
Pour knives, mon premier exemple avait été simplifié pour montrer le foncionnement.

Reply

Marsh Posté le 13-10-2004 à 15:35:43    

phew... Galere toutes ces quotes pour lire le script :o
tu devrais utiliser un fichier csv ou excel plutot que txt, c'est plus pratique.
 
Sinon je dirais qu'il faut rajouter ce qu'a dit initiators avant le Wend. En mettant bien les objects qu'il faut pour le user et le group.

Reply

Marsh Posté le 13-10-2004 à 15:49:36    

knives a écrit :

+1
Par contre ca n'est pas suffisant juste le nom du group et du user, il faut indiquer leurs DN respectifs.


 
Pas juste le nom, le "chemin" vers les objets groupe et user.
 

knives a écrit :

+1
Et .put a la place de .add peut etre, a voir.


 
Pour du NT4 ca doite etre comme je l'ai ecris. Pour du 2000 et au dessus c'est peut etre different, je sais plus et j'ai pas vraiment utilise.

Reply

Marsh Posté le 13-10-2004 à 15:53:30    

T'es sur que ca marche ton
 
adsUser.homeDrive = "Z:"
 
Il me semble que c'etait HomeDirDrive

Reply

Marsh Posté le 13-10-2004 à 16:12:30    

L'ensemble du script fonctionne parfaitement, il est utilisé.
Ce que je veux rajouter et de mettre les utilisateurs membres du groupe "eleves".
 
Je pense rapprocher du but avec ça:
 
 
Set myGroup = GetObject("LDAP://serveur.ecole.com/CN=eleves,OU=eleves,OU=ecole,DC=ecole,DC=com" & strGroupes)  
myGroup.Put = arrRecord(2)
myGroup.SetInfo
 
En noir c ce dont je ne suis pas sur du tout .....

Reply

Marsh Posté le 13-10-2004 à 16:12:30   

Reply

Marsh Posté le 13-10-2004 à 21:53:21    

En vrac, voila ce que j'utilise depuis 2 ans.
 
 
'ajout de cet utilisateur au groupe "groupe_classe" de l'OU "classes"
 
set grp = GetObject("LDAP://CN=groupe_classe_" & groupe_classe & ",OU=classes,OU=collège lycée,DC=etablissement,DC=fr" )
 
grp.Add "LDAP://CN=" & username & ",OU=OU_" & groupe_classe & ",OU=classes,OU=collège lycée,DC=etablissement,DC=fr"


Message édité par c_moa le 13-10-2004 à 21:54:11
Reply

Marsh Posté le 14-10-2004 à 10:36:45    

SUPER CA MARCHE !!!!!!
MERCI C_MOI !!!!!
 
 
Bon alors je donne le script entier pour ceux à qui ça interresse:
 
 
Utilité:
Dans Active Directory, permet de créer des comptes utilisateurs à partir d'une liste en fichier texte.
Ca integre le nom (sn), le prénom(GivenName), le nom de session (sAMAccountName et userPrincipalName) et integre l'utilisateur dans un groupe, je monte aussi un lecteur Z: (homeDirectory et homeDrive).
 
Description de l'exemple:
C'est une liste d'élèves à insérer dans une OU "eleves" qui est dans une OU "ecole".
le script est à insérer dans c:\ANSI\
La liste des élèves doit etre dans le meme répertoire, il sera nommé eleves.txt.
La liste des élève doit etre sur la forme:

Nom:Prenom:nom de session


Chaque ligne correspond à un compte.
 
script:

Code :
  1. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  2. ' Script pour créer les utilisateurs dans Active Directory
  3. '
  4. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  6. wscript.echo "Le script commence. Cliquez OK pour continuer."
  7. DIM arrRecord
  8. Const ForReading = 1
  11. ''''''''''''''''''''''''''''''''''''''''''''''''
  12. ' Determine le chemin LDAP de votre domaine
  13. ' Rien dans cette partie ne doit etre changé
  14. ''''''''''''''''''''''''''''''''''''''''''''''''
  16. Set Root = GetObject("LDAP://RootDSE" )
  17. DomainPath = Root.Get("DefaultNamingContext" )
  20. ''''''''''''''''''''''''''''''''''''''''''''''''
  21. ' Obtenez l'indicateur à votre objet de domaine
  22. ' Rien dans cette partie ne doit etre changé
  23. ''''''''''''''''''''''''''''''''''''''''''''''''
  25. Set Domain = GetObject("LDAP://" & DomainPath)
  28. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  29. ' Pour indiquer l'OU où mettre les utilisateurs
  30. '
  31. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  33. Set ou_HR = GetObject("LDAP://OU=eleves,OU=ecole, " & DomainPath)
  36. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  37. ' L'objet du fichier systeme est votre point d'entrée dans le fichier système
  38. ' Rien dans cette partie ne doit etre changé
  39. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  41. set fso = CreateObject ("Scripting.FileSystemObject" )
  44. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  45. ' Pour retrouver le fichier texte dans C:\ADSI\eleves.txt
  46. ' Le nom et l'emplacement peuvent etre modifiés
  47. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  49. Set tsTextFile = fso.OpenTextFile ("C:\ADSI\eleves.txt", ForReading, False)
  52. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  53. ' Commence à lire le fichier rentré, début de la boucle
  54. '
  55. ' Lit une ligne du fichier
  56. '
  57. ' Rien dans cette partie ne doit etre changé
  58. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  60. While Not tsTextFile.AtEndOfStream    ' START OF LOOP
  61. strRecord = tsTextFile.ReadLine
  64. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  65. ' Découpe la ligne en plusieurs segments délimités par le délimiteur spécifié
  66. ' (Vous pouvez changer le délimiteur)
  67. ' mettre chaque segment dans une rangée nommée arrRecord
  68. ' Le premier segment est référencé par arrRecord(0)
  69. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  71. arrRecord = Split (strRecord, ":" )
  74. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  75. ' Création de l'utilisateur dans l'OU
  76. ' Rien dans cette partie ne doit etre changé
  77. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  79. Set adsUser = ou_HR.Create("user", "CN=" & arrRecord(2))
  82. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  83. ' Définit les sAMAccountName et userPrincipalName
  84. ' attribués pour chaque utilisateur
  85. ' Rien dans cette partie ne doit etre changé
  86. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  88. adsUser.Put "sAMAccountName",  arrRecord(2)
  89. adsUser.Put "userPrincipalName", arrRecord(2)
  90. adsUser.SetInfo
  93. ''''''''''''''''''''''''''''''''''''''''''''''''''''''
  94. ' Active le compte qui est désactivé par défaut
  95. '
  96. ' Rajoute les attributs aditionnés listés dans le fichier texte
  97. '
  98. ' Dans cet exemple, l'attribut de description sera
  99. ' rempli dans le second (1) segment
  100. ' et l'attribut du nom affiché est pris du troisième
  101. ' (2) segment
  102. '
  103. ' Changez cette partie d'attributs add/change
  104. ' rentrés dans le fichier texte
  105. ''''''''''''''''''''''''''''''''''''''''''''''''''''''
  107. adsUser.AccountDisabled = False
  108. adsUser.sn = arrRecord(0)
  109. adsUser.GivenName = arrRecord(1)
  110. adsUser.homeDirectory = "\\serveur\partages"
  111. adsUser.homeDrive = "Z:"
  114. '''''''''''''''''''''''''''''''''''''''''''''''''
  115. 'ajout de cet utilisateur au groupe "eleves" de l'OU "eleves"
  116. '''''''''''''''''''''''''''''''''''''''''''''''''''''
  118. set grp = GetObject("LDAP://CN=eleves,OU=eleves,OU=ecole,DC=ecole,DC=com" )
  119. grp.Add "LDAP://CN="&arrRecord(2)&",OU=eleves,OU=ecole,DC=ecole,DC=com"
  122. '''''''''''''''''''''''''''''''''''''''''''''''''
  123. ' SetInfo flushes the attributes in cache to disk
  124. ' Rien dans cette partie ne doit etre changé
  125. '''''''''''''''''''''''''''''''''''''''''''''''''
  127. adsUser.SetInfo
  130. '''''''''''''''''''''''''''''''''''''''''''''''''''''''
  131. ' Efface adsUser pour le prochain utilisateur
  132. ' Rien dans cette partie ne doit etre changé
  133. '''''''''''''''''''''''''''''''''''''''''''''''''''''''
  135. Set adsUser = Nothing
  136. Wend                                   ' END OF LOOP
  139. ''''''''''''''''''''''''''''''''''''''''''''''''
  140. ' Ferme le fichier texte
  141. ' Rien dans cette partie ne doit etre changé
  142. ''''''''''''''''''''''''''''''''''''''''''''''''
  144. tsTextFile.Close
  147. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  148. ' Boite de dialogue finie
  149. ' Rien dans cette partie ne doit etre changé
  150. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  152. wscript.echo "Eleves créés.", Chr(10),Chr(10),"Cliquez pour finir."


 
 
A la prochaine !
 
lim


Message édité par limvachlapdinos le 14-10-2004 à 10:37:54
Reply

Marsh Posté le 24-02-2005 à 14:04:19    

... les détails complets de la manipulation sont en PDF ici:
http://ReseauActif.free.fr
 
- Administration: création de comptes, gestion des mots de passe  
- Création de comptes utilisateurs en bloc  
- Script VBS pour création de comptes en bloc  
- Gestion des quotas  
- Système de sauvegarde  
- Exemple de création complète d'un domaine avec serveur de fichiers  
 
lim

Reply

Sujets relatifs:

Leave a Replay

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