アプリケーションが起動しているかどうかの判断

いつもお世話になります。

やりたいことは、クライアントサイドのスクリプトで、
あるアプリケーションが起動しているかどうかの
判断を行いたいです。

ネットで以下のようなプロセスを見るスクリプトを見つけてたのですが、
クライアントサイドのスクリプトでは動作しないようです。

Function IsRun()
Dim strProcName ' プロセス名
Dim objProcList ' プロセス一覧
Dim objProcess ' プロセス情報
Dim bRet' 戻り値

On Error Resume Next

bRet = false
strProcName = "xxxx.exe"

Set objProcList = GetObject("winmgmts:").InstancesOf("win32_process")
If Err.number <> 0 then
msgbox "Err.Number=" & Err.number & vbcrlf & "Err.Description=" & Err.Description
exit function
end if
For Each objProcess In objProcList
If LCase(objProcess.Name) = strProcName Then
bRet = true' 起動している
Exit For
End If
Next

On Error Goto 0

IsRunNotesClt_b = bRet
Set objProcList = Nothing
End Function

どなたかクライアントサイドのスクリプトで
アプリケーションが起動してるかどうかを判断できる方法をご教授いただけないでしょうか？
（ブラウザはＩＥ限定なので、できればvbscriptが良いです）

よろしくお願いします。

No.1 ベストアンサー 回答者： BLUEPIXY 回答日時： 2006/03/08 18:28

拡張子が html になってると思いますが、

拡張子を hta にすれば、質問で載っている方法で調べられます。
(Function に返値を設定していないようですけどそれはそれとして）

別の方法としては、ウィンドウを持つアプリケーションであれば、
シェルオブジェクト.AppActivate "ウインドウタイトル"
で指定したウインドウタイトルをもつウィンドウをアクティブにできます。
指定したウィンドウが無い場合失敗しfalse を返すので、そのウィンドウがあるか無いか判断できます。

この回答へのお礼

返信ありがとうございます。

教えていただいた方法でちょっと検討してみます。

お礼日時：2006/03/08 21:48