［Script］［VBS］実行中のwscript.exeをkillする（Win32_Process.Terminate）

無限ループやメッセージボックスが表示され続けるようになってしまった wscript プロセスを終了します。
ただし自分自身の wscript プロセスは kill しないようはずしてます。

wscript.exe を kill するスクリプト

strProcessName = "wscript.exe"

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name=""wscript.exe""")

Set objWShell = CreateObject("WScript.Shell")

For Each objProcess in colProcesses
  If objProcess.Name = strProcessName Then
    If Instr( objProcess.CommandLine, WScript.ScriptFullName ) > 0 Then
      '何もしない（自分自身のプロセス）
    Else
      'wscript.exe を終了する
      objProcess.Terminate
    End If
  End If
Next

参考：

自分自身のスクリプトファイル名を取得する（ScriptName）

---

Script のページに戻る