质谱解析程序:金山毒霸网页安扫描

最近每次开机的时候都会出来一个“金山毒霸网页安扫描”的东东，上面写有“在访问的网页中发现存在安全隐患的代码，是否禁止运行该脚本？”。具体代码如下：
Function LteGetParam(Source, Separator)

Dim Result()
Work = Source + Separator
N = 0
K = 1
C = 0
While (K > 0)
K = InStr(N + 1, Work, Separator)
If K > 0 Then
strItem = Mid(Work, N + 1, K - N - 1)
Redim Preserve Result(C)
Result(C) = (strItem)
C=C+1
End If
N = K
Wend
LteGetParam = Result
End Function

Sub LteSetEvent(Channel,EType)

AbsTime = EType & DateDiff("s","1/1/1970",Now())
Call Channel.Variables.Add("LGT_SMAT",AbsTime,false)

end sub

Sub LteTrySetEvent(Infopak, EType)

if InStr(Infopak.PublisherName,"Timing=1") > 0 then

Call LteSetEvent(Infopak.Channel,EType)

end if
End Sub

Function LteCmd(strIn)

Dim regEx
Set regEx = New RegExp
regEx.Pattern = "\w+\(.+\)"
If regEx.Test(strIn) then
LteCmd = Left(strIn,InStr(strIn,"(")-1)
end if
End Function

Function LteParseStr(strIn)

strOut = Replace(strIn, "'", """") 'restore the double quotes
strOut = Replace(strOut, """""", "'") 'allow for single '
LteParseStr = strOut
End Function

Sub LteSetConfig(i_oChannel, i_sLibVersion)

set WshShell = CreateObject ("WScript.Shell")
strConfig = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Logitech\DesktopMessenger\CurrentVersion\Setup\VersionNumber") & ","
strConfig = strConfig & WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BackWeb\BackWeb-Client\Applications\8876480\General\ConfigVersion") - 168386711 & ","
strConfig = strConfig & i_sLibVersion & ","
strConfig = strConfig & WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Logitech\DesktopMessenger\CurrentVersion\Setup\InstallLanguage") & ","
strConfig = strConfig & giIDP_PROTOCOL_VERSION
Call i_oChannel.Variables.Add("LGT_SMCF", strConfig , true)

Set WshShell = nothing
End Sub

Sub LteCheckErrors(Channel)

if Err.number>0 then

strCUp="Log(ERROR " & Err.Number & ": " & Err.Description & ")"
Call Channel.Variables.Add("LSM_CU",strCUp,true)
end if

end sub

Function LteRegValue(Branch)

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
On Error resume next
LteRegValue = WshShell.RegRead(Branch)
Err.Clear
On error goto 0
End Function

Sub LteRegAdd(Branch,Value)

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
On Error resume next
Current = WshShell.RegRead(Branch)
On error goto 0
Current = Current & Value & ","
Call WshShell.RegWrite(Branch,Current)
End Sub

望大虾们不吝赐教！
可是它是金山毒霸本身进行的安全扫描，并没有像你运行其他的程序时会出现对话框让你决定是否让其运行。所以好象没法在金山上做文章。不知是否有什么别的解决方法，比如说如何处理这个错误的脚本，我估计是中了什么破网页的招了，可能把注册表里的数据给改了。