' This script was originally published in the Exchange Cookbook,
' (http://www.exchangebookcook.com). Written by Paul Robichaux, 
' Missy Koslosky, and Devin Ganger. Redistributed with permission 
' of the publisher, O'Reilly & Associates.

' This code creates a new contact object

' ------ SCRIPT CONFIGURATION ------
 strDCName = "<serverName>"	' e.g. "batman"	
 strContainer= "<container>"	' e.g. "/CN=Users, dc=robichaux, dc=net"
 strContactName = "<userName>"	' e.g. John Doe"
 strContactAlias = "<alias>"	' e.g. "JDoe"
 strContactProxyAddr = "SMTP:<proxyAddr>"	' e.g. "SMTP:jahlove@rediffmail.com"
 
' ------ END CONFIGURATION ---------
Set objContainer = GetObject("LDAP://" & strDCName & strContainer)
Set objContact = objContainer.Create("Contact", "cn=" & strContactName)
With objContact
   .Put "mailNickname", strContactAlias
   .Put "displayName", strContactName
   .Put "targetAddress", strContactProxyAddr
   .Put "systemFlags", 1610612736
   .SetInfo
End With
WScript.Echo "Created contact " & strContactAlias & " at " &_
    strContactProxyAddr