Re: VB Script to dismount stores

Ralph,

Ed is usually a real helpful guy. He has helped me out several times.

I have the exact script you are looking for in fact, it even emails you to
let you know it completed or not plus restart the database. The script is
at work. Please email me your address and I will forward it to you.

I have a horrible data center. In fact over the Thanksgiving holidays a
squirrel shorted out the power to the building. All serverers suddenly lost
power including my Unix, exchange, domain. <Sigh> Yes I have heard of UPS
but the bosses see the $. I had to force my exchange hard drives back on so
I should run the eseutil and isinteg on all my databases real soon. I'm
just triyg to salvage what I can from my holiday.

Tango


"Ed Crowley [MVP]" <curspice@xxxxxxxxxxxxxx> wrote in message
news:OzRa0u%23DHHA.4668@xxxxxxxxxxxxxxxxxxxxxxx
Absolutely I do. Had you presented any evidence that what you are trying
to do is necessary, I might have answered differently, but you didn't. In
fact, you presented no such evidence anywhere in this thread, so I must
still assume that you are wasting your time.
--
Ed Crowley
MVP - Exchange
"Protecting the world from PSTs and brick backups!"

"Ralph Karam" <RalphKaram@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:5C121410-CC4F-4430-949B-EF327F507DEE@xxxxxxxxxxxxxxxx
Considering that you're not in my position do you think that was a
helpful
response?

I realize offline defrag's are not ideal however they are necessary
occaisionally.

"Ed Crowley [MVP]" wrote:

If I were in your position I'd sleep far better if I weren't doing
offline
defrags at all.
--
Ed Crowley
MVP - Exchange
"Protecting the world from PSTs and brick backups!"

"Ralph Karam" <RalphKaram@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:B20391F2-A85C-4F70-86A0-9C4F5C657F29@xxxxxxxxxxxxxxxx
I am looking to create some scripts so I can sleep at night instead of
watching my databases run through their offline defrags.

Servers are Ex2003 SP2

I have several databases and due to large mailbox moves and server
consolidation I ahve a great amount of whitespace to be recovered.

I purchased an O'Reilly exchange cookbook and found the dismount
script.

' This code will dismount the selected mailbox database.
' ------ SCRIPT CONFIGURATION ------
strServerName = "batman" ' e.g., "BATMAN"
strMDBName = "batman-store" ' e.g., "Mailbox Store (BATMAN)"
' ------ END CONFIGURATION ---------

Set theServer = CreateObject("CDOEXM.ExchangeServer")
Set theMDB = CreateObject("CDOEXM.MailboxStoreDB")

theServer.DataSource.Open strServerName
arrSG = theServer.StorageGroups
theFirstSG = arrSG(0)

strURL = "LDAP://"; & theServer.DirectoryServer & "/cn=" & strMDBName &
","
&
theFirstSG
theMDB.DataSource.Open strURL
theMDB.Dismount
WScript.Echo "Database dismounted."

I changed the server and store names but when I run the script I get
an
error

"There is no such object on the server"
Line 15 Char 1

Any guidance would be greatly appreciated







.

Loading