◆ [VBScript] 指定した名前のプロセスが存在するか調べる
おはヨーグルト。ドーモボキです。

指定した名前のプロセスが実行されているかどうか調べるスクリプト。

どうでもいいことだが、CheckProcess と 動詞+名詞 としたかったが、
VBScriptには、FileExists、ForderExists があるので、それにあわせてみた。

MsgBox ProcessExists("Firefox.exe")

'-------------------------------------------------------------------------------
' プロセスが起動しているか調べる
Function ProcessExists(ProcessName)
Dim Service,QfeSet,Qfe,r

Set Service = WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer
Set QfeSet = Service.ExecQuery("Select * From Win32_Process Where Caption='" & ProcessName & "'")

r = 0
For Each Qfe In QfeSet
r = Qfe.ProcessId
Exit For
Next

ProcessExists = r <> 0
End Function

[VBScript] 指定した名前のプロセスを強制終了する

[PR]
by yozda | 2012-06-16 09:52 | プログラミング | Trackback | Comments(0)
トラックバックURL : http://yozda.exblog.jp/tb/15574326
トラックバックする(会員専用) [ヘルプ]
<< [VBScript] 引数を引... [VBScript] PCをス... >>