js 通过更改注册表来设置IE安全项

js函数
function isIP(strIP){//ip地址格式验证.
   var re=/^(\d+)\.(\d+)\.(\d+)\.(\d+)$/g;
   if(re.test(strIP))
   {
    if(RegExp.$1 <256 && RegExp.$2<256 && RegExp.$3<256 && RegExp.$4<256) 
    return true;
   }
    alert("IP站点不合法。");
    return false;
   }

function regSet(addr){//获取表单，创建对象，写注册表.
   //var addr=document.getElementById("Address");
   if(isIP(addr)){
   try{
    var wsh = new ActiveXObject("WScript.shell");

    wsh.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\ZoneMap\\Ranges\\Range1\\:Range",addr.value,"REG_SZ");

    wsh.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\ZoneMap\\Ranges\\Range1\\http","2","REG_DWORD");
   
    var path="HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings";//注册表关于安全设置路径
   
    //1.IE浏览器——>工具——>Internet选项——>安全——>Internet——>ActiveX 控件自动提示
    var str1=path+"\\Zones\\2\\2201";
    if(wsh.RegRead(str1)!='3'){
    wsh.RegWrite(str1,0x00000003,"REG_DWORD");
      alert("ActiveX 控件自动提示已改为禁用！");
    }
   
    //2.IE浏览器——>工具——>Internet选项——>安全——>Internet——>对标记为可安全执行脚本的 ActiveX 控件执行脚本
    var str2=path+"\\Zones\\2\\1201";
    if(wsh.RegRead(str2)!='0'){
     wsh.RegWrite(str2,0x00000000,"REG_DWORD");
      alert("对标记为可安全执行脚本的 ActiveX 控件执行脚本");
    }
   
    //3.下载已签名的 ActiveX 控件
    var str3=path+"\\Zones\\2\\1405";
    if(wsh.RegRead(str3)!='0'){
    wsh.RegWrite(str3,0x00000000,"REG_DWORD");
      alert("下载已签名的 ActiveX 控件");
    }
   
    //4.二进制和脚本行为
    var str4=path+"\\Zones\\2\\2000";
    if(wsh.RegRead(str4)!='0'){
    wsh.RegWrite(str4,0x00000000,"REG_DWORD");
      alert("二进制和脚本行为已启用！");
    }
   
    //5.下载未签名的 ActiveX控件
    var str5=path+"\\Zones\\2\\1004";
    if(wsh.RegRead(str5)!='0'){
    wsh.RegWrite(str5,0x00000000,"REG_DWORD");
    alert("下载未签名的 ActiveX控件已启用！");
    }

    //6.下载已签名的ActiveX控件
    var str5=path+"\\Zones\\2\\1001";
    if(wsh.RegRead(str5)!='0'){
    wsh.RegWrite(str5,0x00000000,"REG_DWORD");
      alert("下载已签名的ActiveX控件已启用！");
    }

    //7.运行ActiveX控件和插件
    var str6=path+"\\Zones\\2\\1200";
    if(wsh.RegRead(str6)!='0'){
    wsh.RegWrite(str6,0x00000000,"REG_DWORD");
      alert("运行ActiveX控件和插件已启用！");
    }
    //alert("添加成功");
    new ActiveXObject("WScript.Shell").SendKeys("{F11}"); 
   }catch(e){alert("添加失败_"+e);}
}
}
调用示例：
<body onload="regSet('127.0.0.1')">