Choregraphe 2.5.5 (win) のプロセス終了スクリプト(vbs)

3860 ワード
Pepper Choregraphe vbs Pepper テキストリンク

はじめに

Windows版のChoregraphe2.5.5で開発をしていると、Choregrapeを終了しても関連プロセスがいつまでも残る現象が発生します。タスクマネージャーから１つ１つ終了させるのが大変なので、一括で終了させるスクリプトを作成しました。

特に qilaunch.exe や naoqi-service.exe が残るようです。Choregraphe2.4.3.28では発生していなかったため、Choregraphe2.5.5の問題ではないかと思います。

環境について

今回使用した環境です。
Choregraphe 2.5.5.5 (Win)

注意点

Choregrapheを起動したままこのスクリプトを実行しないでください。
また、実行には十分ご注意をお願いします。

参考

こちらのサイトの情報を参考にさせていただきました。
[VBScript Tips] http://www.whitire.com/vbs/index.html
[プロセスを強制終了する] http://www.whitire.com/vbs/tips0198.html

対象のプロセスについて

対象のプロセスは次の４つです。スクリプトの最初で指定していますので、必要に応じて変更してください。

プロセス名
choregraphe_launcher.exe
naoqi-bin.exe
naoqi-service.exe
qilaunch.exe

vbScript

killchoreg.vbs

Option Explicit

Dim objCheckProcNameList    ' チェックするプロセス名一覧

Set objCheckProcNameList = CreateObject("System.Collections.ArrayList")

objCheckProcNameList.add("choregraphe_launcher.exe")
objCheckProcNameList.add("naoqi-bin.exe")
objCheckProcNameList.add("naoqi-service.exe")
objCheckProcNameList.add("qilaunch.exe")

Dim objProcList     ' プロセス一覧
Set objProcList = GetObject("winmgmts:").InstancesOf("win32_process")

Dim strProcName     ' 終了するプロセス名
Dim objProcess      ' プロセス情報

Dim lngKillNum
ReDim lngKillNum(objCheckProcNameList.Count)

Dim cnt
For cnt = 0 to UBound(lngKillNum)
    lngKillNum(cnt) = 0
Next

For Each objProcess In objProcList
    cnt = 0
    For Each strProcName In objCheckProcNameList
        If LCase(objProcess.Name) = strProcName Then
            objProcess.Terminate
            If Err.Number = 0 Then
                lngKillNum(cnt) = lngKillNum(cnt) + 1
            Else
                WScript.Echo "エラー: " & Err.Description
            End If
        End If
        cnt = cnt + 1
    Next
Next


Dim infoMessage
infoMessage = ""
cnt = 0
For Each strProcName In objCheckProcNameList
    If lngKillNum(cnt) > 0 Then
        infoMessage = infoMessage & strProcName & " を " & lngKillNum(cnt) & " 個強制終了しました。" & vbCrLf
    Else
        infoMessage = infoMessage & strProcName &" は残っていませんでした。" & vbCrLf
    End If
    cnt = cnt + 1
Next

' 終了メッセージ表示
WScript.Echo infoMessage

Set objCheckProcNameList = Nothing
Set objProcList = Nothing

実行方法

上記のスクリプトをメモ帳などで拡張子vbsとして保存してください。
作成したvbsファイルをダブルクリックすると実行されます。

実行後は、確認および終了したプロセスについてのメッセージが表示されます。