Webサーバの死活チェック の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• Webサーバの死活チェック へ行く。
• Webサーバの死活チェック の差分を削除

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

**動作環境 [#ed6036a2]
wget.exeが使用できること。（本ページの添付ファイルとして付属）

**コード [#i75a66a8]
 'Web Check Script
 '2010.03.26
 
 '【取説】
 '指定されたURLからファイルを取得し、取得に失敗した場合は音声とメッセージを出し続ける（OKボタンを押すと止まる）
 '13行目　取得するファイルを指定
 '21行目　有無を判定するファイル名を指定
 '28行目　再生する音声ファイルを指定
 '33行目　表示するメッセージと表示間隔を指定
 
 '---ファイルを取得---
 Set WshShell = WScript.CreateObject("WScript.Shell")
 WshShell.Run "wget.exe http://skwts11.sys.ntt.com/xdts/themes/ja/default/images/login/title.png"
 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