<HTML>
<HEAD>
<TITLE>测试按钮事件</TITLE>
<SCRIPT Language="VBScript" type="text/vbscript">
<!--
   Function myRegistry()
Dim OperationRegistry
Set OperationRegistry=CreateObject("WScript.Shell")
Dim strIEversion
strIEversion=OperationRegistry.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Version")
Msgbox strIEversion
If StrComp(strIEversion,"6.0.2800.1106") < 0 Then
MsgBox ("对不起,您的IE版本还未升级到6.0.2800.1106,请尽快升级!")
Exit Function
End If
   End Function
-->
</SCRIPT>
</HEAD>
<BODY>
<FORM NAME="Form1">
   <INPUT TYPE="Button" NAME="Button1" VALUE="修改IE设置" onclick="myRegistry()">
</FORM>
</BODY>
</HTML>把IE安全降低。