<Html>
<Head> <title> detect MS06-014 vulnerabilities </title>
& Lt; script language = VBScript & gt;
On error resume next
Set zero = document. createElement ("ob" & "ject ")
Zero. setAttribute "cl" & "assid", "cl" & "sid: BD" & "96C556-65A3-11D0-983A-00C04" & "FC29E36"
Str3 = "Ad" & "odb. St" & "ream"
Set F = zero. createobject (str3 ,"")
If Not Err. Number = 0 then
Err. clear
Document. write ("<CENTER> <font color = 00FF00> congratulations! Your system does not have a MS06-014 vulnerability. </Font> </CENTER> ")
Else
Document. write ("<CENTER> <font color = 00FF00> dangerous! Your system has a MS06-014 vulnerability !!! <Br/> patch address: <a href = http://www.microsoft.com/china/technet/security/bulletin/ms06-014.mspx> http://www.microsoft.com/china/technet/security/bulletin/ms06-014.mspx </a> </font> </CENTER> ")
End if
& Lt;/script & gt;
</Head>
</Html>