Exchange Server

Guest · Posted: Wed Jan 26, 2005 12:04 am Post subject: vbscript: set mailbox to default

Hi,

I'm trying to develop a script that will set all the mailboxes in a
store to the default limit. I found this:
http://groups-beta.google.com/group/microsoft.public.exchange.development/browse_thread/thread/ad50f54ea389d29f/efd66d0d99f36104?q=vbscript+set+mailbox+default+limits&_done=%2Fgroups%3Fq%3Dvbscript+set+mailbox+default+limits%26&_doneTitle=Back+to+Search&&d#efd66d0d99f36104

But instead of setting the limits on an individual mailbox, I want to
change the mailbox to use the default limits of the store.
Thanks,

Jeff

Glen Scales [MVP] · Guest

The "use mailbox store defaults" checkbox is controlled by the
mDBUseDefaults property on the user object. You can use the same example but
this time all you need to do is set the EnableStoreDefaults to true.

Set objPerson = CreateObject("CDO.Person")
objPerson.DataSource.Open "userDN",,3
Set objMailbox = objPerson.GetInterface("IMailboxStore")
If objMailbox.HomeMDB = "" Then
MsgBox "No Mailbox found."
Else
objMailbox.EnableStoreDefaults = True
objPerson.DataSource.Save
wscript.echo "Mailbox limits for " & recipname & " set successfully"
End If

Cheers
Glen

<smaug9@gmail.com> wrote in message
news:1106673586.634242.38410@f14g2000cwb.googlegroups.com...

Guest

Thanks! Worked great.

Jeff

	Exchange Server Forum Index -> Development	All times are GMT
Page 1 of 1