# 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 ------

use Win32::OLE;

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

# find the target user
$strQuery = 'LDAP://' . $strDCName . $strUserName;

$theUser = Win32::OLE->GetObject($strQuery);
$theUser->Put('msExchHideFromAddressLists', 1);
$theUser->SetInfo();
print "Hid $strUserName from all address lists\n";