[プロセスを強制終了する]

起動している notepad.exe を、全て強制終了します。

【ソースコード】

[tips0198.vbs]
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 "エラー: " & Err.Description
        End If
    End If
Next
If lngKillNum > 0 Then
    WScript.Echo strProcName & " を " & lngKillNum & " 個強制終了しました。"
Else
    WScript.Echo strProcName & " が見つかりませんでした。"
End If

Set objProcList = Nothing

【実行結果】

C:\> cscript //NoLogo tips0198.vbs
notepad.exe を 2 個強制終了しました。