On Fri, Mar 26, 2010 at 00:55, user-d54077869176@xymon.invalid
<user-d54077869176@xymon.invalid> wrote:
On Thu, 25 Mar 2010 11:38:07 +0100, "Gillis Bart" <user-cba7bb00b233@xymon.invalid>
wrote:
Hi,
I've adapter the bbsql-server script from deadcat.net so that it is
working with the BBWin agent.
[snip]
I still have to implement some alerting on those statistics but the
script
works fine on MSSQL 2000 and up.
It works on both 32 and 64 bit architecture.
I will paste it on xymonton
Ah, I should probably send this publicly...
There was an error when I ran this. Each server I've run this on claim
to have no jobs, so the file for CheckJobStats was never created.
The following code, around line 122, "fixes" it. You can see that it
only opens the file if it exists, then deletes immediately after
reading instead of after the variable assignment. It could be
simplified by always setting tmpStr to No Job History, then replace it
with f.ReadAll as needed.
There are a few other minor improvements that could be made (e.g.
change <td> to <th> in table head; maybe remove <br> from within
tables since it doesn't seem to serve any purpose).
Loop
if fso.FileExists(strFilePath & "\" & tempfilename) then
Set f = fso.OpenTextFile(strFilePath & "\" & tempfilename ,1 )
If Not f.AtEndOfLine Then
tmpStr = f.ReadAll
Else
tmpStr = " No Job History. " & vbcrlf
End If
f.Close
fso.DeleteFile strFilePath & "\" & tempfilename
else
tmpStr = " No Job History. " & vbcrlf
end if