Checking server status 1

[gbaughma]

I'd like to take credit for writing this, but I didn't... I just modified it to work on our web system.

Since we have several servers and remote sites, I incorporated this into our main web page for a simple "is the server up?" script.

<% Response Buffer=True %>
<%
url = "1.2.3.4" ' IP Address of server.. .use the IP 'cause it's faster

Set objWShell = CreateObject("WScript.Shell")
Set objCmd = objWShell.Exec("ping -n 1 " & url)
strPResult = objCmd.StdOut.Readall()
set objCmd = nothing : Set objWShell = nothing

strStatus = "<font color=red>Offline!</font>"
if InStr(strPResult,"TTL=")>0 Then strStatus = "<font color=green>Online</font>"

response.Write "ServerName is " & strStatus
%>

Just my 2¢

"In order to start solving a problem, one must first identify its owner." --Me
--Greg

http://parallel.tzo.com

 

[Chopstik]

Interesting idea, Greg. I know that we occasionally have similar issues and this might find some use in our environment. I'll try it and see what happens. Thanks!

------------------------------------------------------------------------------------------------------------------------
"Men occasionally stumble over the truth, but most of them pick themselves up and hurry off as if nothing ever happened."
- Winston Churchill