【VBS】タスクに常駐させるVBSを起動／停止する方法

こんにちは、sysin-jamです。

前回、「定期的にキー入力してスリープや退席中にならないようにする方法」で常駐させるVBSを作成しました。

VBSを常駐させていますが、「常駐を止めたい時」があります。

それはこんな時です。
・集中してずっと端末を使っている（VBSを常駐させる必要がない）
・端末を会社に持っていく（離席中にスリープにならないと気まずい（VBSを常駐させない））

常駐を止めたい時は「タスクから削除」する必要がありますが、毎回タスクマネージャーを起動させるのが面倒なので1クリックでVBS常駐のON/OFFを切り替えるVBSを作成します。

どういう処理にする？
タスクに常駐させるVBSを起動／停止させるには？
まとめ

どういう処理にする？

VBSにこだわる必要はないですが、VBS常駐のON/OFFなので一旦VBSで作成します。

こんな感じの前提条件かな。

①常駐させるVBSとは別のVBSファイルを作成します。

②1クリックでVBS常駐のON/OFFを切り替えます。
・VBSがタスクに常駐していない時は起動（ON）
・VBSがタスク常駐中はタスク削除（OFF）

タスクに常駐させるVBSを起動／停止させるには？

タスクの中にVBS（F15_Run.vbs）があれば削除し、なければ起動させます。

Dim objWsh
Dim blnStop
Dim shell
Dim vbsName
Dim messageTime

vbsName = "F15_RunOnOff"
messageTime = 0.6

Set Shell = WScript.CreateObject("WScript.Shell")

'プロセスにF15_Runが存在する場合は削除
for each p in GetObject("winmgmts:{impersonationLevel=impersonate}"). _
    ExecQuery("select * from Win32_Process where CommandLine Like '%wscript.exe%F15_Run.vbs%'")
    p.Terminate
    blnStop = True
next

'起動していなかった場合F15_Runを起動させる
if blnStop <> True Then
    '起動用オブジェクトを生成
    Set objWsh = WScript.CreateObject("WScript.Shell")

    'F15_Run.vbsを起動
    objWsh.Run "F15_Run.vbs"

    'メッセージ表示
    shell.Popup "F15_Runを起動しました", messageTime, vbsName, vbOkOnly
Else
    'メッセージ表示
    shell.Popup "F15_Runを削除しました", messageTime, vbsName, vbOkOnly
end if

タスクマネージャー内のVBSは↓のような形でまとめられちゃいます。