Dude, Where\u2019s My Printer?<\/B><\/A> For now we\u2019ll merely note that this is the query we use to retrieve a list of all the contacts in the domain:<\/P>objCommand.CommandText = _\n “SELECT ADsPath FROM ‘LDAP:\/\/dc=fabrikam,dc=com’ WHERE objectClass=’contact'”\n<\/PRE>\nYes, very simple: all we do is request all the items in Active Directory where the objectClass<\/B> attribute is equal to contact<\/I>.<\/P>\n
Of course, then the question becomes this: once we have a collection of all the contacts what the heck do we do with it? <\/P>\n
Well, as you probably know, Active Directory search scripts are read-only: although we can use queries to retrieve data from Active Directory we can\u2019t write any sort of Update query that can go out and modify<\/I> that data. Instead, what we need to do is individually bind to each contact and change the value of the MSExchHideFromAddressLists attribute.<\/P>\n
Don\u2019t worry; it\u2019s not as hard as it sounds. (We\u2019ve already done the hard part, retrieving a list of all the contacts in the domain.) To begin with, we set up a Do Until loop that will walk us through our recordset, contact-by-contact (the EOF<\/B>, of course, is short for end of file<\/I>, meaning this loop will keep running until we run out of records):<\/P>Do Until objRecordSet.EOF\n<\/PRE>\nFor each contact we grab the value of the ADsPath<\/B> attribute and then use the GetObject<\/B> method to bind to the contact account in Active Directory. That\u2019s what we do here:<\/P>strContactPath = objRecordSet.Fields(“ADsPath”).Value\nSet objContact = GetObject(strContactPath)\n<\/PRE>\nThe ADsPath attribute, of course, looks something like this:<\/P>
LDAP:\/\/cn=Ken Myer, ou=Finance, dc=fabrikam, dc=com\n<\/PRE>\nThat\u2019s why you don\u2019t see us reference the LDAP provider when we call GetObject: we don\u2019t need to reference the provider because it\u2019s included in the ADsPath.<\/P>\n
After binding to the contact account we set the MSExchHideFromAddressLists attribute to True, then call the SetInfo<\/B> method to write the updated information to Active Directory:<\/P>objContact.MSExchHideFromAddressLists = TRUE\nobjContact.SetInfo\n<\/PRE>\nDon\u2019t leave out the SetInfo method: if you do, the changes you make will not be saved to the contact account in Active Directory. And don\u2019t leave out this line of code, either:<\/P>
objRecordSet.MoveNext\n<\/PRE>\nThis is the cue for the script to move from one record in the collection to the next. If you leave this out, your script will continue working with the first record in the collection from now until the end of time. (Which, in some ways, would be kind of cool, but not exactly what you had in mind.)<\/P>\n
And that\u2019s it: your contacts will now be hidden from the Exchange address lists. Now if only we<\/I> could hide from email that easily \u2026.<\/P><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! How can I configure the Hide From Exchange Address Lists property for all the contacts in a domain?— MM Hey, MM. You know what the say: you can run, but you can\u2019t hide (especially from Microsoft Exchange!). But what they forgot to add is that you can hide, as long as you\u2019ve […]<\/p>\n","protected":false},"author":595,"featured_media":87096,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[7,19,9,3,4,5],"class_list":["post-68713","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-active-directory","tag-activex-data-objects-ado","tag-adsi","tag-scripting-guy","tag-scripting-techniques","tag-vbscript"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! How can I configure the Hide From Exchange Address Lists property for all the contacts in a domain?— MM Hey, MM. You know what the say: you can run, but you can\u2019t hide (especially from Microsoft Exchange!). But what they forgot to add is that you can hide, as long as you\u2019ve […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/68713","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/users\/595"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/comments?post=68713"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/68713\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media\/87096"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media?parent=68713"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=68713"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=68713"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/q-for-powertip.jpg\" "\\"Hey,")
<\/H2>\n![\"Spacer\"](\"https:\/\/devblogs.microsoft.com\/scripting\/wp-content\/uploads\/sites\/29\/2019\/05\/spacer.gif\")
![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/a-for-powertip.jpg\" "\\"Hey,")
![\"Script](\"http:\/\/img.microsoft.com\/library\/media\/1033\/technet\/images\/scriptcenter\/ad.jpg\" "\\"Script")
<\/A> \n