Discussion :

[LordVenom]

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?

[LordVenom]

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

Code :

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

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 :

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

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?