Gal hide (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 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"

This code has been viewed 2485 times.

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