Ajout nouvel utilisateur dans un groupe AD existant

Signaler
Messages postés
3
Date d'inscription
mardi 8 mai 2012
Statut
Membre
Dernière intervention
17 août 2012
-
Bonjour,
Désolé de posez une question qui à été poser et reposer sur tout les forums informatique de la toile mais je bloque vraiment.
j'ai créer un script qui ajoute un nouvel utilisateur dans l'AD puis je souhaiterais que cette utilisateur soit ajouté automatiquement à des groupes.
J'ai déjà testé pas mal de solutions différentes :
Const ADS_PROPERTY_APPEND = 3 
Set objGroup = GetObject ("LDAP://cn=Nom Uitilisateur,cn=Users,dc=Nom du domain,dc=com") 
objGroup.PutEx ADS_PROPERTY_APPEND, "member", Array("cn=Nom Groupe,ou=Nom OU,dc=Nom domaine,dc=com")
objGroup.SetInfo

 Dim group As New DirectoryEntry("LDAP://CN=mongroupe,OU=groupetest,OU=Groupe,DC=mondomain", "admin", "password")
 
        group.Properties("member").Add("CN=monuser,DC=mondomain")
 
        group.CommitChanges() 

Dim Ldap As DirectoryEntry = New DirectoryEntry("LDAP://domaine.lan", "utilisateur", "motdepasse")
 
            Dim group As New DirectoryEntry("mongroupe")
 
            group.Properties("member").Add("monuser")
 
            group.CommitChanges()


Et d'autre encore mais aucune ne marche
Merci de bien vouloir m'aider, a plus

PS: Je code avec Miscrosoft visual Basic 2010 et tout les exemples que j'ai trouvé date un peu maintenant donc c'est peut être une piste