Solved

Server downtime reporting

Posted on 2006-06-19
8
579 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
Comment Utility
http://www.soft32.com/download_1011.html

The software above should work
0
 
LVL 13

Expert Comment

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

Expert Comment

by:mcsween
Comment Utility
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
 
LVL 21

Expert Comment

by:mcsween
Comment Utility
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
Better Security Awareness With Threat Intelligence

See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.

 
LVL 1

Author Comment

by:Cerixus
Comment Utility
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
Comment Utility
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
Comment Utility
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
Comment Utility
Not exactly what I had in mind, but I think it will work.

Thanks.
0

Featured Post

IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

A common practice in small networks is making file sharing easy which works extremely well when intra-network security is not an issue. In essence, everyone, that is "Everyone", is given access to all of the shared files - often the entire C: drive …
This is the first one of a series of articles I’ll be writing to address technical issues that are always referred to as network problems. The network boundaries have changed, therefore having an understanding of how each piece in the network  puzzl…
When you create an app prototype with Adobe XD, you can insert system screens -- sharing or Control Center, for example -- with just a few clicks. This video shows you how. You can take the full course on Experts Exchange at http://bit.ly/XDcourse.
This video demonstrates how to create an example email signature rule for a department in a company using CodeTwo Exchange Rules. The signature will be inserted beneath users' latest emails in conversations and will be displayed in users' Sent Items…

762 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

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now