Webサーバの死活チェック
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
**概要 [#r2dd0157]
Webサーバよりファイルを取得し、取得有無によりWebサーバの...
停止と判定された場合は警告音の再生とメッセージの表示を行...
**動作環境 [#ed6036a2]
wget.exeが使用できること。(本ページの添付ファイルとして...
**コード [#i75a66a8]
'Web Check Script
'2010.03.26
'【取説】
'指定されたURLからファイルを取得し、取得に失敗した場合は...
'13行目 取得するファイルを指定
'21行目 有無を判定するファイル名を指定
'28行目 再生する音声ファイルを指定
'33行目 表示するメッセージと表示間隔を指定
'---ファイルを取得---
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "wget.exe http://www.asabiya.net/images/log...
'---ファイルの取得が完了するまでスリープ---
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) & strSo...
Do While True
objShell.Run strCommand, 0, true
If objShell.Popup("監視システムからの応答がありません",5...
loop
End If
Set objFso = Nothing
終了行:
**概要 [#r2dd0157]
Webサーバよりファイルを取得し、取得有無によりWebサーバの...
停止と判定された場合は警告音の再生とメッセージの表示を行...
**動作環境 [#ed6036a2]
wget.exeが使用できること。(本ページの添付ファイルとして...
**コード [#i75a66a8]
'Web Check Script
'2010.03.26
'【取説】
'指定されたURLからファイルを取得し、取得に失敗した場合は...
'13行目 取得するファイルを指定
'21行目 有無を判定するファイル名を指定
'28行目 再生する音声ファイルを指定
'33行目 表示するメッセージと表示間隔を指定
'---ファイルを取得---
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "wget.exe http://www.asabiya.net/images/log...
'---ファイルの取得が完了するまでスリープ---
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) & strSo...
Do While True
objShell.Run strCommand, 0, true
If objShell.Popup("監視システムからの応答がありません",5...
loop
End If
Set objFso = Nothing
ページ名: