Monitor Computer Health and Availability

Retrieves health status markers (such as low disk space or printers that are offline) for a set of computers.

3 Star
Add to favorites
Operating System
E-mail Twitter Digg Facebook
  • Trouble Running This Script
    2 Posts | Last post June 15, 2010
    • Hello,
      This is a great script and I would really like to utilize it but I can't get it to work.  I am not a very good script debugger so I was hoping someone could help me out.  The error I get when trying to run this script is as follows:
      Line: 581
      Char: 2
      Error: Expected 'End'
      Code: 800A03F6
      Source: Microsoft VBScript compiliation error
      This error cooresponds to the following lines of code in the script I have modified for our use:
      562         sReportit=false
      563         sFlagIt=false
      564      Next
      565      set objWMIService = nothing
      566      set colRunningServices = nothing
      568 '     During the loop, we can't know how many rows there are, so when we finish looping, we need to close the 569       table cells.  The final row will not actually display, as null cells do not print, but is necessary to .
      571      MyCounter=MyCounter+1
      572      objTextFile.WriteLine "<tr style='mso-yfti-irow:" & MyCounter & "mso-yfti-lastrow:yes'>"
      573      sWriteDataRow MyColor,"75","130.95"," "
      574      sWriteDataRow MyColor,"68","126.2"," "
      575      sWriteDataRow MyColor,"96","146.8"," "
      576      sWriteDataRow MyColor,"37","27.45"," "
      577      objTextFile.WriteLine "</tr>"
      579      ' Close the Table
      580      objTextFile.WriteLine "</table>"
      581	else
      582	  sWebOpenSection(SectionCounter)
      583      '  Print the Machine Name
      584      sWebWriteHeading "Machine Name: ",strComputer,"12.0",False,True
      585      sWebWriteRedLine strComputer & " not responding to Ping" 
      586      objTextFile.WriteLine "<p class=MsoNormal><o:p>&nbsp;</o:p></p>"
      587   end if
      588   objTextFile.WriteLine "<p class=MsoNormal><o:p>&nbsp;</o:p></p>"
      589   objTextFile.WriteLine "</div>"
      590 next
      Thank you in advance for any help you can give.
    • Nice script. I do have one problem returning data from an IBM blade server. It errors out w/ line 362 char 13 "invalid use of null 'round' code 800A005e
      Anyone have any ideas? When this happens I see up to the drives in the report, but no other data for the blade server...