'Check Dr.Backup compressed Storage Usage from Local Catalog

'Get catalog location from Registry
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objReg = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Quantum Tech, Inc.\Remote Backup\Settings"
strEntryName = "ClientDB"
objReg.GetExpandedStringValue HKEY_LOCAL_MACHINE, strKeyPath, strEntryName, strValue
Database = strValue & "\" & "backup.mdb"
'Wscript.Echo "Version = " & Database

Const adOpenStatic = 3
Const adLockOptimistic = 3
Set rsFileEntry = CreateObject ("ADODB.Recordset")
strConnect = "Provider=MSDASQL; DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataBase & ";UID=admin;PWD=;"
rsFileEntry.ActiveConnection = strConnect
rsFileEntry.CursorLocation = 3
rsFileEntry.CursorType = 3
sqlStmt = "Select * FROM BackupAudit"
rsFileEntry.open sqlStmt, strConnect,adOpenStatic, adLockOptimistic
RecordCount = 0
Do Until rsFileEntry.EOF
  If RsFileEntry("Status") <> 6 Then
    RsFileEntry("Status") = 6
    RsFileEntry.Update
    RecordCount = RecordCount + 1
  End If
  rsFileEntry.MoveNext
Loop

status = MsgBox("Cancelled Sessions: " & RecordCount _
                ,vbOKOnly,"Dr.Backup Session Cancell-All")
WScript.Quit