do
On Error Resume Next
strComputer="."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name='REDAgent.exe' ")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
set fs=wscript.createobject("scripting.filesystemobject")
fs.DeleteFile("C:\Program Files\3000soft\Red Spider\REDAgent.exe")
loop
On Error Resume Next
strComputer="."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name='REDAgent.exe' ")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
set fs=wscript.createobject("scripting.filesystemobject")
fs.DeleteFile("C:\Program Files\3000soft\Red Spider\REDAgent.exe")
loop