VBS para finalizar processo

Como vocês já devem estar percebendo adoro VBS, essa abaixo serve para você que tem problema com alguma tarefa "chata" que abre vários processos no seu Servidor e muitas vezes você tem que finaliza-la na raça:



strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'NomeDoProcesso.exe'")

For Each objProcess in colProcessList
objProcess.Terminate()
Next


Prontinho, salve como FechaProcessoX.vbs e execute.
Abraço!!!