' 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 script hides the selected object from all address lists

' ------ SCRIPT CONFIGURATION ------
 strDCName = "<ServerName>"	' e.g. CONT-EXBE01
 strUserName = "/cn=<User>, CN=Users, <ForestRootDN>" 
' ------ END CONFIGURATION ---------

' find the target user
strQuery = "LDAP://" & strDCName & strUserName

Set theUser = GetObject(strQuery) 
theUser.Put "msExchHideFromAddressLists", True
theUser.SetInfo
WScript.Echo "Hid " & strUserName & " from all address lists"