[VBScript]Shutdows Application 關閉執行中的程式

前言:
這篇不適用於Indusoft，因為他媽的Indusoft不支援Wscript物件。 (此程式無須用到WScript.Shell)

此篇功能在於可以將工作管理員內的程式給關閉。

在此我們示範開啟多個小算盤，在工作管理員我們看到應用程式頁籤程式的名稱就叫做"小算盤"，而在處理程序頁籤中叫做"calc.exe"。VBS程式碼如下:

Set objShell = CreateObject("WScript.Shell") '這行沒用到

Set objWmi = GetObject("winmgmts:")

'calc.exe 是小算盤的程式名稱
strWmiq = "select * from Win32_Process where name='calc.exe'"
Set objQResult = objWmi.Execquery(strWmiq)


For Each objProcess In objQResult
intRet = objProcess.Terminate(1)
Next 

應用此程式碼，不管你開啟幾個小算盤程式，他都會將其關閉。

參考網址:
http://www.windowsitpro.com/forums/aft/39103 <---此篇應用版本 http://www.computerperformance.co.uk/vbscript/wmi_process_stop.htm <---複雜版 再次聲明:此程式碼不適用於IWS   可用於IWS