杀死指定进程名称的小VBS

以下是一小段杀死指定进程名字的小vbs,希望对大家有帮助。
 
 
Function KillProc(strProcName)
On Error Resume Next
 Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
 Set arrProcesses = objWMIService.ExecQuery( "select * from win32_process where Name ='"&strProcName&"'" )
 For Each proccess In arrProcesses
  proccess.Terminate 0
 Next
End Function

posted on 2009-05-14 20:30  测试者家园  阅读(3641)  评论(0编辑  收藏  举报

导航