VBScript　すでに動いている.vbsへの関与

こんにちは、
VBScriptにて簡単な自動化プログラムを作成中しております

お聞きしたいことは「すでに動いている.vbsを外から止めることは出来るか」ということになります。
現在作成中の自動化プログラムを途中で止める際に、同じく.vbsを用いて止める方法を探しています。

具体的には

同じ.vbsを起動すると、同一のものがすでに動いている際はそれを停止するか聞いてくる
すでに動いているものをファイル名などで検知して、それを別の.vbs止める

のどちらかを実現したいです。

詳しい方がいらっしゃいましたらご教授願えないでしょうか。
もちろん全て教えていただかなくても、検索ワードや機能をお教えくださるだけでも十分です。

回答お待ちしております。
よろしくお願いいたします。

行動規範の内容に同意します

回答3件

ベストアンサー

あとから起動したプログラムが「自分と同じ名前のプログラムが起動していたら終了する」という方法をとるのが一般的な気がします。

この場合、下記サイトが参考になります。
⇒アプ研

あとから起動したプログラムが「既に動いているプログラムを終了させる」には、プロセスを見つけてKILLするような形になると思います。
この場合、下記サイトが参考になります。
⇒WMI Fun
⇒yozdaさんのブログ
 ⇒maruton's memorandum

しかし、自分自信も同名のプログラムとして検出してしまうので、自プロセスを特定していないと自分自身もKILLしてしまうことになります。
この自プロセスの特定という部分が難しいということもあるので、どちらでもよいのであれば前者をお勧めします。

サンプル

以下は上記サイトのコードを組み合わせた、KILLするサンプルです。

Option Explicit
Dim wmiLocator
Dim wmiService
Dim objEnumerator
Dim strQuery
Dim objProcess

strQuery = "Select * FROM Win32_Process WHERE (Caption = 'wscript.exe' OR Caption = 'cscript.exe') AND " & _ 
            " CommandLine LIKE '%" & WScript.ScriptName & "%'"
Set wmiLocator = CreateObject("WbemScripting.SWbemLocator")
Set wmiService = wmiLocator.ConnectServer
Set objEnumerator = wmiService.ExecQuery(strQuery)

Dim iCnt
iCnt = 0

If objEnumerator.Count > 1 Then
    msgbox "同じスクリプトが実行されています。"
    For Each objProcess In objEnumerator
        iCnt = iCnt + 1
        If iCnt = objEnumerator.Count then
            '最後に見つけたプロセスはKILLしない
        Else
            'プロセスを終了する。
            objProcess.Terminate
            MsgBox "PIDが" & CStr(objProcess.ProcessId) & "のプロセスを終了しました。" & iCnt & "/" & objEnumerator.Count
        End If
    Next
Else
    msgbox "他には起動していません。"
End If

msgbox "処理終了"