![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
taskkill /f /im chrome.exe
taskkill /pid [PID1] /pid [PID2] /pid [PID3] ... /t /f
wmic process where (processid=[調査対象PID]) get parentprocessid
wmic process where "name = 'chrome.exe'" delete
Dim Shell, WMI, query, process
Set Shell = CreateObject("WScript.Shell")
Set WMI = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\.\root\cimv2")
query = "SELECT ProcessId FROM Win32_Process WHERE Name = 'chrome.exe'"
For Each process In WMI.ExecQuery(query)
On Error Resume Next
process.Terminate
Next
