[hobbit] MS SQL Monitoring on Windows 2003 64-bit
Gillis Bart
Bart.Gillis at cegeka.be
Fri Mar 26 16:47:13 CET 2010
Richard,
Thank you for these tips.
I'm not a very good scripter,
any help is welcome.
Best regards
Bart
-----Original Message-----
From: Richard Finegold [mailto:goldfndr at gmail.com]
Sent: vrijdag 26 maart 2010 9:59
To: hobbit at hswn.dk
Subject: Re: [hobbit] MS SQL Monitoring on Windows 2003 64-bit
On Fri, Mar 26, 2010 at 00:55, doctor at makelofine.org
<doctor at makelofine.org> wrote:
> On Thu, 25 Mar 2010 11:38:07 +0100, "Gillis Bart"
<Bart.Gillis at cegeka.be>
> 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
To unsubscribe from the hobbit list, send an e-mail to
hobbit-unsubscribe at hswn.dk
More information about the Xymon
mailing list