Discussion :

[troxsa]

Bonjour a tous,


Je recherche comment faire pour ajouter un compte utilisateur dans un des groupes (MemberOf) ?


En vous remerciant d'avance.

Cordialement,

[spantemonium]

ca existe pas ca déjà sur le forum ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Const ADS_PROPERTY_APPEND = 3
 
Set objGroup = GetObject _
    ("LDAP://cn=Atl-Users,cn=Users,dc=NA,dc=fabrikam,dc=com")
objGroup.PutEx ADS_PROPERTY_APPEND, _
    "member", Array("cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com")
objGroup.SetInfo

faut remplacer par les éléments de ton AD.

Tu parlais bien d'un groupe AD ?

[troxsa]

merci spantemonium
Oui c'est bien d'une AD que je parle

il me semblais d'avoir essayer ce code déjà, et il ne fonctionnais pas, du moins je doit m'y prendre comme un manche ... je vais refaire le test

J'essais de faire une copie de profile utilisateur existant dans un nouveau profile ayant les mêmes groupes
Je recherche donc le profile existant qui conviendrais pour le nouvelle utilisateur
je fait la lecture des groupes (MemberOf) que je stocke dans une variable.

je crée mon nouveau profile utilisateur et je souhaite ajouté les mêmes groupes que l'autre ...
je me prend peut être la tête pour rien dans le sens ou il existe déjà du code vbs qui ferais de la copie utilisateur non ?

A bientot

[spantemonium]

je n'ai pas ce code ...

mais celui que je t'ai fourni fonctionne.