Solved

Server downtime reporting

Posted on 2006-06-19
8
582 Views
Last Modified: 2011-10-03
Recently management requested quarterly downtime reports.  We currently use intermapper to monitor around 300 servers.  However, it has no downtime reporting feature.  I'd really like to avoid logging downtimes manually into a spreadsheet.  I'm hoping to find a simple ping or snmp utility that can handle at least 300 nodes and allow for downtime reports to be run at a later time.

I'm looking for a free solution.
0
Comment
Question by:Cerixus
  • 3
  • 2
  • 2
  • +1
8 Comments
 
LVL 13

Expert Comment

by:2hype
ID: 16936146
http://www.soft32.com/download_1011.html

The software above should work
0
 
LVL 13

Expert Comment

by:2hype
ID: 16936156
oops its free for only 3 nodes unless you buy.  Forgot about the 300 nodes
0
 
LVL 21

Expert Comment

by:mcsween
ID: 16937058
I wrote this VBscript which works pretty well.  Only 1 stipulation is it must be run as a Domain Admin in the same domain as the servers  you are checking, so if you want to check servers in multiple domains you will have to setup one instance of this script for each domain.  I suggest scheduling this to run every 10 or 15 minutes with task scheduler.

Create a folder anywhere on the box that will run the script.
Create servers.txt in that folder and place the name of each server you want to check on it's own line with no spaces before or after, also DO NOT include the "\\"

Create another file called CheckStatus.vbs and copy the following text to that file.  The output will be written to ServerStatus.csv in the same folder.  You can use Excel to create reports/graphs/etc... from this file.

'~~~~~~~~~START SCRIPT~~~~~~~~~~~
Option Explicit
On Error Resume Next

Dim servername, WMI, fso, serverlist, outfile

Set fso = CreateObject("Scripting.FileSystemObject")
Set serverlist = fso.OpenTextFile("./servers.txt",1)
If fso.FileExists("./ServerStatus.csv") = True Then
      Set outfile = fso.OpenTextFile("./ServerStatus.csv",8)
Else
      Set outfile = fso.CreateTextFile("./ServerStatus.csv",True)
      outfile.WriteLine "Server Name, Date/Time, Status"
End If

Do While serverlist.AtEndOfStream = False
      servername = serverlist.ReadLine
      Set WMI = GetObject("winmgmts:\\" & servername & "\root\cimv2")
      If WMI Is Nothing Then
            outfile.WriteLine servername & ", " & Now & ", DOWN"
      Else
            outfile.WriteLine servername & ", " & Now & ", UP"
      End If
Loop
'~~~~~~~~~END~~~~~~~~~~~~~~~~
0
VMware Disaster Recovery and Data Protection

In this expert guide, you’ll learn about the components of a Modern Data Center. You will use cases for the value-added capabilities of Veeam®, including combining backup and replication for VMware disaster recovery and using replication for data center migration.

 
LVL 21

Expert Comment

by:mcsween
ID: 16937100
Crap, I missed some cleanup in that script above, use this portion as the VBScript instead

'~~~~~~~~~START SCRIPT~~~~~~~~~~~
Option Explicit
On Error Resume Next

Dim servername, WMI, fso, serverlist, outfile

Set fso = CreateObject("Scripting.FileSystemObject")
Set serverlist = fso.OpenTextFile("./servers.txt",1)
If fso.FileExists("./ServerStatus.csv") = True Then
      Set outfile = fso.OpenTextFile("./ServerStatus.csv",8)
Else
      Set outfile = fso.CreateTextFile("./ServerStatus.csv",True)
      outfile.WriteLine "Server Name, Date/Time, Status"
End If

Do While serverlist.AtEndOfStream = False
      servername = serverlist.ReadLine
      Set WMI = GetObject("winmgmts:\\" & servername & "\root\cimv2")
      If WMI Is Nothing Then
            outfile.WriteLine servername & ", " & Now & ", DOWN"
      Else
            outfile.WriteLine servername & ", " & Now & ", UP"
      End If
      Set WMI = Nothing
Loop
'~~~~~~~~~END~~~~~~~~~~~~~~~~
0
 
LVL 1

Author Comment

by:Cerixus
ID: 16937203
Gah.  I typed up a nice response to your solution just to get an error saying "Invalid question (ID:0)".

In short, that won't really work.  I need a shorter poll interval (to catch reboots) and better reporting options.
0
 
LVL 8

Accepted Solution

by:
ksearch earned 500 total points
ID: 16941867
I'm not sure of your environment, but since you posted in the "microsoft network" forum, I'm assuming it's micrsoft. There is a free tool from microsoft called uptime.  It's simple, command line driven and gives all kinds of good stats.  You could use a script to get it to run against all 300 nodes and dump to a log.   It's free, easy to try, and worth a shot.  




0
 
LVL 1

Author Comment

by:Cerixus
ID: 16942267
Wow.  Now THAT may be something I can work with.  With the /p:90 /s switches, it's almost exactly what I need already.

I'll play with it a bit and come back and award points later if there are no better solutions.

Thanks.
0
 
LVL 1

Author Comment

by:Cerixus
ID: 17012920
Not exactly what I had in mind, but I think it will work.

Thanks.
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article offers some helpful and general tips for safe browsing and online shopping. It offers simple and manageable procedures that help to ensure the safety of one's personal information and the security of any devices.
Resolve DNS query failed errors for Exchange
Microsoft Active Directory, the widely used IT infrastructure, is known for its high risk of credential theft. The best way to test your Active Directory’s vulnerabilities to pass-the-ticket, pass-the-hash, privilege escalation, and malware attacks …
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…

832 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question