[[技術関係メモ]]

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