Webサーバの死活チェック

概要†

Webサーバよりファイルを取得し、取得有無によりWebサーバの死活を判定するスクリプト。
停止と判定された場合は警告音の再生とメッセージの表示を行う。

動作環境†

wget.exeが使用できること。（本ページの添付ファイルとして付属）

コード†

'Web Check Script
'2010.03.26

'【取説】
'指定されたURLからファイルを取得し、取得に失敗した場合は音声とメッセージを出し続ける（OKボタンを押すと止まる）
'13行目　取得するファイルを指定
'21行目　有無を判定するファイル名を指定
'28行目　再生する音声ファイルを指定
'33行目　表示するメッセージと表示間隔を指定

'---ファイルを取得---
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "wget.exe http://www.asabiya.net/images/login/title.png"

'---ファイルの取得が完了するまでスリープ---
WScript.Sleep(2000)

'---ファイルの有無を評価---
Set objFso = CreateObject("Scripting.FileSystemObject")

If objFso.FileExists("title.png") Then
'---取得成功：ファイルを削除---
	Set objFso = CreateObject("Scripting.FileSystemObject")
	objFso.DeleteFile "title.png",True
else
'---取得失敗：エラーメッセージ＆警告音---

strSoundFile="C:\Windows\Media\Chimes.wav"
Set objShell=CreateObject("Wscript.Shell")
strCommand="Mplay32.Exe /play /close " & chr(34) & strSoundFile & chr(34)
Do While True
objShell.Run strCommand, 0, true
If objShell.Popup("監視システムからの応答がありません",5,"警告") = 1 Then Exit Do '5秒待機、無限ループ脱出
loop

End If

Set objFso = Nothing