VBScript プロセスを強制終了させるサンプル

プロセスを終了させる方法

Option Explicit
On Error Resume Next

Dim strProcName ' 終了するプロセス名
Dim objProcList ' プロセス一覧
Dim objProcess ' プロセス情報
Dim lngKillNum ' 終了したプロセス数

strProcName = "notepad.exe"
lngKillNum = 0

Set objProcList = GetObject("winmgmts:").InstancesOf("win32_process")
For Each objProcess In objProcList
    If LCase(objProcess.Name) = strProcName Then
        objProcess.Terminate
        If Err.Number = 0 Then
            lngKillNum = lngKillNum + 1
        Else
            WScript.Echo "エラー: " &amp; Err.Description
        End If
    End If
Next
If lngKillNum &gt; 0 Then
    WScript.Echo strProcName &amp; " を " &amp; lngKillNum &amp; " 個強制終了しました。"
Else
    WScript.Echo strProcName &amp; " が見つかりませんでした。"
End If

Set objProcList = Nothing