技術関係メモ

Windows上のアプリが動いているかどうかを監視するために、スクリプトを作った。

この例では、firefox.exe をプロセスリストから探して、0個かそれ以外かを判別して、ダイアログを表示する。

' 準備
Dim Service, QfeSet, Qfe, r, num
Set Service = Wscript.CreateObject("WbemScripting.SWbemLocator").ConnectServer

' firefox.exe のプロセスリストを取得
Set Procs = Service.ExecQuery("Select * from Win32_Process Where 
Name='firefox.exe'")

' ダイアログ用Object生成
Set objShell = WScript.CreateObject("WScript.Shell")

' プロセスがあれば個数を表示。なければないと表示。
if Procs.Count > 0 Then
	objShell.Popup "FireFox プロセスは "&Procs.Count&"個動いてます",5,,vbInformation
Else
	objShell.Popup "FireFox は動いていません",5,,vbInformation
End If

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS