Création contact avec attribut exchange via ADSI

Bonjour,

j'aimerais créer dans mon AD des contacts ( j'y arrive) avec les attributs
exchange.
C'est à dire qu'il doit y avoir les onglets exchange dans les propriétés du
contact. De cette manière ces contacts seront visible dans la liste d'adresse
globale d'outlook. Voici le code ( copié sur le scriptomatic ADSI!)

--------------------------------------------------------------------------------

strContainer = "ou=TEST"
strName = "bob"

'***********************************************
'* Connect to a container *
'***********************************************
Set objRootDSE = GetObject("LDAP://rootDSE")
If strContainer = "" Then
Set objContainer = GetObject("LDAP://" & _
objRootDSE.Get("defaultNamingContext"))
Else
Set objContainer = GetObject("LDAP://" & strContainer & "," & _
objRootDSE.Get("defaultNamingContext"))
End If
'***********************************************
'* End connect to a container *
'***********************************************

Set objContact = objContainer.Create("contact", "cn=" & strName)
objContact.MailEnable "bob@domaine.fr"
objContact.SetInf
---------------------------------------------------------------------------------------

Je pense qu'une partie de la réponse est la, mais je ne comprends
pas comment l'appliquer !

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/e2k3/e2k3/_cdo_enumerating_contacts.asp

merci d'avance !