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