[hobbit] BBWin - Monitoring size of Exchange database files

[Storer, Raymond]

Thomas, you can try the code someone else pointed to at deadcat and you can also try this:

Ray

'Author: Ray Storer
'Date: 2009-08-24
'Purpose: Check file size and existence

Option Explicit

'If you want to use the registry to find this, feel free to change this.
Const BBWIN_TMP_DIR = "C:\Program Files\BBWin\tmp\" 'change to meet your environment, but leave the trailing backslash
Const BBWIN_TEST_NAME = "fsize" 'change to meet your requirements

'If you want to use the environment variables feel free to change this.
Const HOST_NAME = "YOUR_MACHINE_NAME" 'change to meet your environment

'16 gigabytes
Const MAX_TOTAL_FILE_SIZE = 17179869184 'change to meet your requirements
Dim RED_FILE_SIZE
RED_FILE_SIZE = MAX_TOTAL_FILE_SIZE * 0.85 'change to meet your requirements
Dim YELLOW_FILE_SIZE
YELLOW_FILE_SIZE = MAX_TOTAL_FILE_SIZE * 0.70 'change to meet your requirements

'change the arrFiles(1) to the number of elements (files) you need minus 1.
Dim oFso, arrFiles(1), strStatus, oFile, iSumFileSize, strRedGreen, strFileInfo
iSumFileSize = 0
strRedGreen = "GREEN"
Set oFso = CreateObject("Scripting.FileSystemObject")

'change to meet your environment
arrFiles(0) = "C:\Program Files\BBWin\bin\cpu.dll"
arrFiles(1) = "C:\Program Files\BBWin\bin\disk.dll"
'keep adding arrFiles(...) here if you need more
strStatus = ""
strFileInfo = ""

'get the file sizes and set red if they do not exist
Dim sFile
for each sFile in arrFiles
        if (oFso.FileExists(sFile)) then
                Set oFile = oFso.GetFile(sFile)
                strFileInfo = strFileInfo & vbcrlf & sFile & vbtab & CStr(oFile.Size)
                iSumFileSize = iSumFileSize + oFile.Size
        else
                strRedGreen = "RED"
                if (len(strStatus) = 0) then
                        strStatus = strRedGreen & " " & HOST_NAME & " " & CStr(Now())
                        strStatus = strStatus & VbCrLf
                        strStatus = strStatus & " " & sFile & " file does not exist."
                else
                        strStatus = strStatus & " " & sFile & " file does not exist."
                end if 'check len of strStatus
        end if 'check for file existence
next 'iterate over the files

'set red,yellow,green based on file sizes
if (iSumFileSize >= RED_FILE_SIZE) then
        strRedGreen = "RED"
else
        if (iSumFileSize >= YELLOW_FILE_SIZE) then
                if (strRedGreen <> "RED") then
                        strRedGreen = "YELLOW"
                end if
        else
                if (strRedGreen <> "RED") then
                        strRedGreen = "GREEN"
                end if
        end if
end if

if (len(strStatus) = 0) then
        strStatus = strRedGreen & " " & HOST_NAME & " " & CStr(Now())
        strStatus = strStatus & vbcrlf
        strStatus = strStatus & strFileInfo
        strStatus = strStatus & vbcrlf
        strStatus = strStatus & "Total File Size: " & CStr(iSumFileSize)
else
        strStatus = strStatus & vbcrlf
        strStatus = strStatus & strFileInfo
        strStatus = strStatus & vbcrlf
        strStatus = strStatus & "Total File Size: " & CStr(iSumFileSize)
end if

Set oFile = ofso.CreateTextFile(BBWIN_TMP_DIR & BBWIN_TEST_NAME, true)
oFile.WriteLine(strStatus)
oFile.Close

Set oFile = Nothing
Set oFso = Nothing

CONFIDENTIALITY NOTICE:  This email and any attachments are for the
exclusive and confidential use of the intended recipient.  If you are not
the intended recipient, please do not read, distribute or take action in
reliance upon this message. If you have received this in error, please
notify us immediately by return email and promptly delete this message
and its attachments from your computer system. We do not waive
attorney-client or work product privilege by the transmission of this
message.