' 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 sets a cap on the number of recipients allowed 
' on a single message
' ------ SCRIPT CONFIGURATION ------
strMessageDeliveryDN = "cn=message delivery,cn=global settings," & _
     "cn=<orgName>,cn=microsoft exchange,cn=services," & _
     "cn=configuration, <ForestRootDN>"
' ------ END CONFIGURATION ------

set objMessageLimit = Getobject("LDAP://" & strMessageDeliveryDN)
objMessageLimit.Put "msExchRecipLimit", "100"
objMessageLimit.SetInfo
WScript.Echo "Set recipient limit on " & strMessageDeliveryDN & " to 100"