VBS Ajouter un "Contact" AD dans un groupe

Bonsoir à tous,

Après une longue recherche sur le forum je n'ai rien trouvé à ce sujet alors je me décide.

J'arrive à créer un contact ds AD avec une adresse Exchange associée (ex: Toto ; SMTP:toto@domain.com) à partir d'un script VB mais je ne sais pas comment l'ajouter ensuite à groupe standard (ex: GroupeContact)

J'ai essayé d'adapter un script qui créé un utilisateur puis l'ajoute à un groupe mais sans succés !

Qq'un aurait une idée?

Bon, voilà par exemple le code pour créér un Contact (contact simple)

Code:

---

1 2 3 4

Set objOU = GetObject("LDAP://OU=management,dc=fabrikam,dc=com")   Set objUser = objOU.Create("contact", "cn=MyerKen") objUser.SetInfo

---

Et voilà le script qui va 1) me créér une OU 2) me créer l'utilisateur 3)me créér le groupe 4) me mettre l'utilisateur ds le groupe:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Set objDomain = GetObject("LDAP://dc=fabrikam,dc=com") Set objOU = objDomain.Create("organizationalUnit", "ou=Management") objOU.SetInfo   Set objOU = GetObject("LDAP://OU=Management,dc=fabrikam,dc=com") Set objUser = objOU.Create("User", "cn= AckermanPilar") objUser.Put "sAMAccountName", "AckermanPila" objUser.SetInfo   Set objOU = GetObject("LDAP://OU=Management,dc=fabrikam,dc=com") Set objGroup = objOU.Create("Group", "cn=atl-users") objGroup.Put "sAMAccountName", "atl-users" objGroup.SetInfo   objGroup.Add objUser.ADSPath

---

Il faudrait "mélanger" les deux mais je n'y arrive pas, une aide?