[ACTIVE DIRECTORY - VBS] Ajout d'un utilisateur a un Groupe

Ajout d'un utilisateur a un Groupe [ACTIVE DIRECTORY - VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 23-07-2008 à 16:16:43    

Hello,
 
malgré quelques recherche sur le net, je ne trouve pas la syntaxe en VBS pour inserer un utilisateur dans un groupe.
En précisant que le groupe existe deja.
 
 
Merci de votre aide ;)  
 
Bonne journée

Reply

Marsh Posté le 23-07-2008 à 16:16:43   

Reply

Marsh Posté le 23-07-2008 à 17:17:03    

Hello,
 
Il ne faut pas hésiter lors de ta recherche à utiliser des termes en anglais. J'ai ainsi trouvé la solution en troisième position sur google avec les termes "vbs active directory create user".
 
C'est la : http://www.activexperts.com/activm [...] ccount.htm
 

Reply

Marsh Posté le 24-07-2008 à 10:02:13    

Merci de ton aide,  
 
Le bout de script qui m'interesse est celui là :  
 

Code :
  1. Set objOU = GetObject("LDAP://OU=Management,dc=fabrikam,dc=com" )
  2. Set objGroup = objOU.Create("Group", "cn=atl-users" )
  3. objGroup.Put "sAMAccountName", "atl-users"
  4. objGroup.SetInfo
  6. objGroup.Add objUser.ADSPath


 
Cependant j'ai remarqué qu'il s'agit d'un objOU.Create, or mon groupe est déjà crée.
J'arrive bien a recuperer la liste des groupe et l'inserer dans une variable.
Comment faire   ? Et a quoi correspond le ADSPath ?
 
D'avance merci

Reply

Marsh Posté le 24-07-2008 à 10:30:45    

Dans ce cas, l'exemple illustré la doit correspondre à ta recherche :
 
http://www.computerperformance.co. [...] nal_Unit)_

Reply

Marsh Posté le 24-07-2008 à 10:43:02    

Code :
  1. ' UserOU.vbs
  2. ' Sample VBScript to create a User in a named OU.
  3. ' Author Guy Thomas http://Userperformance.co.uk/
  4. ' Version 2.4 - September 2005
  5. ' ------------------------------------------------------'
  6. Option Explicit
  7. Dim objRootLDAP, objContainer, objUser, objShell
  8. Dim strUser, strName, strContainer
  10. strUser = "BookKeeper21"
  11. strName = "Bookie"
  12. strContainer = "OU=Accounts ," ' Note the comma
  14. ' Bind to Active Directory, Users container.
  15. Set objRootLDAP = GetObject("LDAP://rootDSE" )
  16. Set objContainer = GetObject("LDAP://" & strContainer & _
  17. objRootLDAP.Get("defaultNamingContext" ))
  19. ' Build the actual User.
  20. Set objUser = objContainer.Create("User", "cn=" & strUser)
  21. objUser.Put "sAMAccountName", strUser
  22. objUser.Put "givenName", strName
  23. objUser.SetInfo
  25. ' Optional section to launch Active Directory Uses and Users
  26. Set objShell=CreateObject("WScript.Shell" )
  27. objShell.Run "%systemroot%\system32\dsa.msc"
  29. WScript.Quit
  31. ' End of Sample UserOU VBScript.


 
Le contenu de strContainer correspond t'il a une Organizational unit ou bien un Groupe ? (exemple d'un de mes groupes : "Admins du domain" ou bien "Internet-Full-Access". Exemple d'une de mes OU : "Irlande" ou bien "France"

Reply

Marsh Posté le 24-07-2008 à 11:10:57    

à une OU. Tu crées tes users dans une OU, puis tu les rajoutes à un groupe.

Reply

Marsh Posté le 24-07-2008 à 12:57:53    

le soucis c'est que je ne comprend pas la syntaxe de la commande pour rajouter un user a un groupe ...

Reply

Marsh Posté le 25-07-2008 à 10:19:39    

j'ai trouver ce bout de code sur un site de microsoft :  
 

Code :
  1. Const ADS_PROPERTY_APPEND = 3
  3. Set objdomain = GetObject("LDAP://CN=NOM_USER,OU=France,dc=xxx,dc=xxx,dc=xxx,dc=xxx" ) 'Chemin de mon utilisateur a inserer dans un groupe
  5. objdomain.Putex ADS_PROPERTY_APPEND, "member",array("cn=xxx,ou=Groupes,ou=France,dc=xxx,dc=xxx,dc=xxx,dc=xxx" ) 'chemin de mon groupe
  7. objdomain.setinfo


 
 
Cependant a lexecution message d'erreur : Ligne 18 caract. 1 Erreur : L'opération demandée n'est pas comptatible avec l'une ou plusieurs des contraintes associées avec la classe de l'objet.
Code 80072014
 
 
 
Help :)


Message édité par raxzor le 25-07-2008 à 10:20:00
Reply

Sujets relatifs:

Leave a Replay

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