FINISH (1) (2)

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Do While 0 = 0
On Error Resume Next
strComputer = "."
Set objNetwork = CreateObject("Wscript.Network")
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
''' Processo que será verificado '''''''
Set colProcesses = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'syscomm.exe'")
Set colProcesses2 = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'validador.exe'")
''' elimina o processo 1 definido '''
For each Processo in ColProcesses
 Processo.Terminate()
Next
''' elimina o processo 2 definido '''
For each Processo in ColProcesses2
 Processo.Terminate()
Next
Loop