All, I have been working on a simple VB script to dismount a specific store, run a offline defrag, then mount the store again. Since this exchange 2K3 server has mulitple stores, I would rather not stop the IS service. I would use a scheduled task to call a batch file which runs the VBscript. I dont have a problem runiing this part, but it seems some of my sytax is incorrect, could you please offer your suggestions to me, I certainly would appreciate!!! Here is my VBScript code: Dim strMDBName Dim strSGName Dim strComputerName Dim strAdmGrpName Dim OrgName Dim LdapDc strMDBName = sg1priv2 ("Name of the MDB to be dismounted","Mailbox Store Name","Mailbox store (Server-A)") strSGName = SG1 ("Name of the storage group that contains the MDB","Storage Grop name","First storage group") strComputerName = USUS1EXC1002 ("Name of the Exchange 2000 server","Server Name","Server-a") strAdmGrpName = AG-NA ("Name Of the administrative group","Admin Group name","First Administrative Group") OrgName = CORP ("Enter the Organization Name","Organization","NorthWind Traders") LdapDc = DC=CORP ("Enter LDAP Domain Name","Dc=Domain,Dc=msft","DC=NorhWind,DC=Traders") ' Sub DismountMailboxStoreDB (strMDBName,strSGName,strComputerName ) Dim iMDB Dim iServer Dim strTemp Dim strMDBUrl Dim arrStGroup() set iServer = CreateObject ("CDOEXM.ExchangeServer") set iMDB = CreateObject ("CDOEXM.MailboxStoreDB") iServer.DataSource.Open strComputerName WScript.echo iServer.DirectoryServer ' Build the URL to the MailboxStoreDB strMDBUrl = "LDAP://"&iServer.DirectoryServer&"/"&"cn="&strMDBName&",cn="&strSGName&",cn=InformationStore,cn="&strComputerName&",CN=Servers,CN=" &strAdmGrpName&",CN=Administrative Groups,CN="&OrgName&",CN=Microsoft Exchange,CN=Services,CN=Configuration,"& LdapDc WScript.echo "the url is " & strMDBUrl 'e.g strMDBUrl = "ldap://CN=Mailbox Store (SERVER-A),CN=First Storage Group,CN=InformationStore,CN=SERVER-A,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=NorthWind Traders,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=NorhWind,DC=Traders" 'Bind to the MailboxStoreDB iMDB.DataSource.Open strMDBUrl 'Dismount the MailboxStoreDB iMDB.Dismount(30) WScript.echo "The database "& strMDBName & " was seccessfuly dismounted" 'Cleanup Set iServer = Nothing Set iMDB = Nothing ' End Sub

Software/Hardware used: