vb script实现杀掉进程-我的知识库

' ProcessKillLocal.vbs

' Sample VBScript to kill a program

' Author Guy Thomas http://computerperformance.co.uk/

' Version 2.7 - December 2005

' ------------------------ -------------------------------'

Option Explicit

Dim objWMIService, objProcess, colProcess

Dim strComputer, strProcessKill

strComputer = "."

strProcessKill = "'otrun.exe'"

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" _

& strComputer & "\root\cimv2")

Set colProcess = objWMIService.ExecQuery _

("Select * from Win32_Process Where Name = " & strProcessKill )

For Each objProcess in colProcess

objProcess.Terminate()

WSCript.Echo "Just killed process " & strProcessKill _

& " on " & strComputer

WScript.Quit

' End of WMI Example of a Kill Process

我的知识库