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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°1763757
raxzor
Posté le 23-07-2008 à 16:16:43  profilanswer
 

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

mood
Publicité
Posté le 23-07-2008 à 16:16:43  profilanswer
 

n°1763815
ccp6128
Syntax error
Posté le 23-07-2008 à 17:17:03  profilanswer
 

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
 

n°1764028
raxzor
Posté le 24-07-2008 à 10:02:13  profilanswer
 

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

n°1764073
ccp6128
Syntax error
Posté le 24-07-2008 à 10:30:45  profilanswer
 

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

n°1764095
raxzor
Posté le 24-07-2008 à 10:43:02  profilanswer
 

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"

n°1764120
ccp6128
Syntax error
Posté le 24-07-2008 à 11:10:57  profilanswer
 

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

n°1764189
raxzor
Posté le 24-07-2008 à 12:57:53  profilanswer
 

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

n°1764652
raxzor
Posté le 25-07-2008 à 10:19:39  profilanswer
 

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

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

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

 

Sujets relatifs
[VBS] Ouvrir un lecteur spécifique.VBS : changer d'onglet
VBS : tester une liste[Résolu][Batch] handle de la fenêtre active
Ajout dynamique de catégorieCalculer nombre de jours entre deux dates en VBS
Fichier XML Ajout/Suppression de ligneManipuler caractères étranger dans VBS
Script VBS envoyant un email, pb avec la piece jointe[Résolu] Batch confirmation d'ajout d'une imprimante en réseaux !
Plus de sujets relatifs à : [ACTIVE DIRECTORY - VBS] Ajout d'un utilisateur a un Groupe

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

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