Dim findfolder, delreg

Set fso = wscript.CreateObject("scripting.filesystemobject")

Set wsh = wscript.CreateObject("wscript.shell")

findfolder = fso.getspecialfolder(1)

If (fso.fileexist(findfolder & "\avserver.exe")) = flase Then

delreg = wsh.regread("HKLM\software\microsoft\windows\currentversion\run\avserver.exe")

If Err.Number <> 0 Then

MsgBox "电脑中没有种“振荡波”", 64, "GOOD"

wscript.quit

Else

If (MsgBox("已经中“振荡波”病毒，是否清除？", vbYesNo, "BAD")) = vbYes Then

Call kill

Call del

wsh.regdelete "HKLM\software\microsoft\windows\currentversion\run\avserve.exe"

MsgBox "注册表中的加载项已经清除！", 64, "清除"

End If

End If

End If

End

End Sub

Sub del()

Set fso = wscript.CreateObject("scripting.filesystemobject")

getfolder = fso.getspecialfolder(1)

fso.deletefile (getfolder & "\avserve.exe")

End Sub

Sub kill()

Set wsh = wscript.CreateObject("wscript.shell")

wsh.run "cmd.exe/c kill.bat"

wscript.sleep 1200

End Sub