Photo Gallery Member List Search Calendars FAQ Ticket List Log Out


Modify Expansion Server for large amount of Distribution Lists

  		Logged in as: Guest
arrSession:exec spGetSession 2,2,61648
Active Users: There are 0 members and 0 guests.
Users viewing this topic: none
 

 

  
 
  Printable Version
All Forums >> [Scripting] >> WSH & Client Side VBScript >> Modify Expansion Server for large amount of Distribution Lists
  Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks! 		Page: [1]
Login
Message << Older Topic   Newer Topic >>
Modify Expansion Server for large amount of Distributio... - 6/19/2008 8:52:02 PM   
  reda01

 

Posts: 9
Score: 0
Joined: 5/8/2008
Status: offline 		Hello,
I need to modify the expansion server attribute on 900 distribution lists, Exchange server 2003 SP2. I am trying to change the option msExchExpansionServerName to " Any server in the organization" instead of  server which has been removed from our AD.

When I execute this VB script :
==
Set objOU = GetObject("LDAP://OU=NameOfDL,OU=OU1,OU=OU2,OU=SITE,DC=DC1,DC=CONTOSO,DC=COM")

For Each objGroup In objOU
    ' Filter the Domain Object/Collection to modify groups only
      If objGroup.Class = "group" then      
            objGroup.msExchExpansionServerName = "/O=***/OU=***/CN=Configuration/cn=Servers/cn=Any server in the organization"
            objGroup.SetInfo
            wscript.Echo objGroup.msExchExpansionServerName
      End If
Next

set objOU = Nothing
wscript.Echo "All Done"
===
This script runs successfully, but it didn't modify anything, the Distribution groups still point to the removed server. The option Expansion Server must be set to " Any server in the organization ".
I made many researches how to set this option Expansion server to " Any server in the organization "l, wihtout success.
Any ideas why the vb script doesn't modify the option ?
Thank you,
Reda
 
 
 
Post #: 1
 
RE: Modify Expansion Server for large amount of Distrib... - 6/21/2008 5:18:52 AM   
  DiGiTAL.SkReAM


Posts: 1184
Score: 7
Joined: 9/6/2005
From: Florida, USA
Status: offline 		If you hit the Any key, you will find the answer.



_____________________________

"Would you like to touch my monkey?" - Dieter (Mike Meyers)

"It is better to die like a tiger, than to live like a pussy."
-Master Wong, from Balls of Fury

(in reply to reda01)
 
 
Post #: 2
 
RE: Modify Expansion Server for large amount of Distrib... - 6/21/2008 8:57:48 AM   
  reda01

 

Posts: 9
Score: 0
Joined: 5/8/2008
Status: offline 		Sorry, I don't see what you mean ??

(in reply to DiGiTAL.SkReAM)
 
 
Post #: 3
 
RE: Modify Expansion Server for large amount of Distrib... - 6/23/2008 2:12:31 AM   
  reda01

 

Posts: 9
Score: 0
Joined: 5/8/2008
Status: offline 		any ideas, guys ?

(in reply to reda01)
 
 
Post #: 4
 
RE: Modify Expansion Server for large amount of Distrib... - 6/23/2008 3:04:52 PM   
  DiGiTAL.SkReAM


Posts: 1184
Score: 7
Joined: 9/6/2005
From: Florida, USA
Status: offline 		Isn't that key one of those that use the default value only when there is nothing entered in the key?

_____________________________

"Would you like to touch my monkey?" - Dieter (Mike Meyers)

"It is better to die like a tiger, than to live like a pussy."
-Master Wong, from Balls of Fury

(in reply to reda01)
 
 
Post #: 5
 
RE: Modify Expansion Server for large amount of Distrib... - 6/23/2008 6:45:48 PM   
  reda01

 

Posts: 9
Score: 0
Joined: 5/8/2008
Status: offline 		Hi,

I run this script :

+++++++++++++
Set objOU = GetObject("LDAP://OU=testdl,OU=FromMSX55,OU=GVA,OU=EBU,DC=gva,DC=ebu,DC=ch")

For Each objGroup In objOU
   ' Filter the Domain Object/Collection to modify groups only
     If objGroup.Class = "group" then     
           objGroup.msExchExpansionServerName = " "
           objGroup.SetInfo
           wscript.Echo objGroup.msExchExpansionServerName
     End If
Next

set objOU = Nothing
wscript.Echo "All Done"
++++++++++++


objGroup.msExchExpansionServerName = " " is set to no option, so the default option ( Any server in the organization ) should be set. But nothing changes ??

The idea is to set all the Distribution lists expansion server to " Any server in the organization ".

Thanks,

Reda

(in reply to DiGiTAL.SkReAM)
 
 
Post #: 6
 
RE: Modify Expansion Server for large amount of Distrib... - 6/24/2008 5:25:21 AM   
  DiGiTAL.SkReAM


Posts: 1184
Score: 7
Joined: 9/6/2005
From: Florida, USA
Status: offline 		Try modifying the HomeMTA value at the same time as the msExchExpansionServerName value.
These two values are linked, apparently.


_____________________________

"Would you like to touch my monkey?" - Dieter (Mike Meyers)

"It is better to die like a tiger, than to live like a pussy."
-Master Wong, from Balls of Fury

(in reply to reda01)
 
 
Post #: 7
 
RE: Modify Expansion Server for large amount of Distrib... - 7/7/2008 11:40:02 PM   
  reda01

 

Posts: 9
Score: 0
Joined: 5/8/2008
Status: offline 		Hello,

I didn't find how to modify HomeMTA using VBScript ? and this line above doesn't change anything :

objGroup.msExchExpansionServerName ="/O=Any server in the organization"

Do you have any idea how to set many distribution list exansion server to "Any server in the organization", this is the option by default when I create a new distribution list.

Many thanks in advance,

Reda

(in reply to DiGiTAL.SkReAM)
 
 
Post #: 8
 
 
 
 

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.
All Forums >> [Scripting] >> WSH & Client Side VBScript >> Modify Expansion Server for large amount of Distribution Lists Page: [1]
Jump to:





New Messages No New Messages
Hot Topic w/ New Messages Hot Topic w/o New Messages
Locked w/ New Messages Locked w/o New Messages
 Post New Thread
 Reply to Message
 Post New Poll
 Submit Vote
 Delete My Own Post
 Delete My Own Thread
 Rate Posts




Forum Software © ASPPlayground.NET Advanced Edition 2.5.5 ANSI