'Variables for Script
strServer = "mail"
' e.g. ExchServer2
strSGName = "First Storage Group"
' e.g. SG1 strMailStoreName = "Second Mailbox Store"
' e.g. DB1
' Find Storage Group URL
strSearch = "CN=" & strSGName & ","
set objSrv = CreateObject("CDOEXM.ExchangeServer")
objSrv.DataSource.Open strServer
for each sg in objSrv.StorageGroups
if (instr(1,sg,strSearch,1)>0) then strSGUrl = sg
next
' Generate Mailbox Store URL
strMBUrl = "LDAP://CN=" & strMailStoreName & "," & strSGUrl
'wscript.echo strMBUrl
'Open Mailbox Store
set objMb = CreateObject("CDOEXM.MailBoxStoreDB")
objMb.DataSource.Open strMBUrl
if (objMb.Status = 0) then
'Mailbox store is mounted
Wscript.Echo "OK - Store is mounted"
Else
'Mailbox store is unmounted or doesn.t exist
Wscript.Echo "Error - Store is unmounted"
End if