How do I create a Global Address List in Exchange 2003 and then change
the permissions all using VBScript?

---

Request for Question Clarification by keystroke-ga on 27 Sep 2006 09:04 PDT

Hello the_g,

Are these the types of resources you're looking for?

http://www.msexchange.org/articles/Scripting-This site might be helpful to you
http://www.msexchange.org/articles/Scripting-Exchange-VBScript-ADSI-Part1.html

Let me know if this works for you.

--keystroke-ga

---

Request for Question Clarification by keystroke-ga on 27 Sep 2006 09:09 PDT

Correction...


This site might be helpful to you
http://www.msexchange.org/articles/Scripting-Exchange-VBScript-ADSI-Part1.html

--keystroke-ga

---

Clarification of Question by the_g-ga on 27 Sep 2006 11:50 PDT

I have found what I've been looking for.  Took me a long time but have it now.  

Thanks 

Just in case you want to know

' 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 creates a new top-level address list
' ------ SCRIPT CONFIGURATION ------
 strDCName = "<serverName>"	' e.g. "batman"	
 strContainer= "/CN=All Address Lists,CN=Address Lists
Container,CN=<orgName>,CN=Microsoft
Exchange,CN=Services,CN=Configuration,<domain>"
 strALName = "<newName>" ' e.g. Toledo Employees"
' ------ END CONFIGURATION ---------
what = "LDAP://" & strDCName & strContainer
Set objContainer = GetObject(what)
Set objAddrList = objContainer.Create("AddressBookContainer", "cn=" & strALName)
objAddrList.Put "displayName", strALName
objAddrList.Put "Instancetype", "4"
objAddrList.Put "objectCategory",
"CN=Address-Book-Container,CN=Schema,CN=Configuration,DC=robichaux,DC=net"
objAddrList.Put "PurportedSearch", "(&(mailNickname=*)(objectClass=user))"
objAddrList.SetInfo