Monitor Exchange Last Full Backup Time
I need to setup a monitor to log the exchange store last backups and alert me if the difference between the last backup is greater than 7 days. I can use a VB script to pull the info but I was wonder if Altiris Monitor Solution or Inventory Solution can do this.
Here is a sample VB script:
strTitle="Rapport for en Mailboks Store "
strServer=InputBox("Whats the name of the Exchange Server?",strTitle,"MyExchangeSVR")
SGReport strServer
WScript.Quit
Sub SGReport(strServer)
Dim iServer
Dim iSGs
Dim iMBS
Set iServer=CreateObject("CDOEXM.ExchangeServer")
Set iSGs=CreateObject("CDOEXM.StorageGroup")
Set iMBs=CreateObject("CDOEXM.MailboxStoreDB")
iServer.DataSource.Open strServer
arrSGs=iServer.StorageGroups
For i=0 To UBound(arrSGs)
strSGUrl=arrSGs(i)
'WScript.Echo strSGUrl
iSGs.DataSource.Open "LDAP://" & iServer.DirectoryServer & "/" & strSGUrl
strData=strData & iSGs.Name & vbcrlf
arrMBStores=iSGs.MailboxStoreDBs
For j=0 To UBound(arrMBStores)
iMBS.DataSource.open "LDAP://" & arrMBStores(j)
strData=strData & vbTab & iMBS.Name& vbcrlf
strData=strData & vbTab & " DBPath:" & iMBS.DBPath& vbcrlf
strData=strData & vbTab & " Last Backup:" & iMBS.LastFullBackupTime & vbcrlf
strData=strData & vbTab & " StorageQuotaWarning:" & iMBS.StoreQuota & vbcrlf
strData=strData & vbTab & " StorageQuotaLimit:" & iMBS.OverQuotaLimit & vbcrlf
Next
Next
'WScript.Echo strData
strFileName = "C:\Scripts\Exchange.Log"
Set objFSO = CreateObject("scripting.filesystemobject")
Set objTextStream = objFSO.OpenTextFile(strFileName, 2, True)
objTextStream.WriteLine strData
End sub
Monitor Exchange Last Full Backup Tim
Hi i will look at this in more detail to see what i can come up with.
Thanks
Thanks
I saw this post and had a
I saw this post and had a couple of ideas to expose this information for you.
Since collaborative data objects cannot be natively exposed within Monitor Solution, and the exchange WMI classes dont house this data, how about using a log file?
Monitor Solution natively supports reading a log file. Your VBS needs to be updates to write out to a log file and then you could have MS read the log file.
Another concept would be commandline execution. Change your VBS to update the last date of backup, have MS read the last date and then have rules set to trigger X threshold.
I am not the exchange admin here, but we accomplish similar tasks using the above methods.
Again, just some thoughts.
Third Floor Garage Door Operator
Would you like to reply?
Login or Register to post your comment.