自己写的程序，求高手帮忙改良一下~~~~~~

On Error Resume Next
set fs = createobject("scripting.filesystemobject")
fs.DeleteFile "C:\Program Files\3000soft\Red Spider\REDAgent.exe", true
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()
fs.DeleteFile objProcess.ExecutablePath, true
Next
set objEvent = objWMIService.ExecNotificationQuery("select * from __InstanceCreationEvent within 1 Where TargetInstance ISA 'win32_process' and TargetInstance.Name='REDAgent.exe''")
do
set inst = objEvent.NextEvent
set objProcess = inst.TargetInstance
objProcess.Terminate()
fs.DeleteFile objProcess.ExecutablePath, true
loop


    缩进呢？