Set recipient limit (VBScript)

This code can be found in Chapter 5 of Exchange Server Cookbook

Purchase XP Cookbook or Networking Recipes for only $25 plus shipping! While supplies last.

Find out how to download all of the VBScript code from this site.

' 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"

This code has been viewed 1305 times.

New from the creators of TechTasks.com: StatSheet.com