有个 js 脚本 winxp 可以运行 win7 64bit 提示错误 80070005 错误 哪位大神帮忙看看 先谢过了

一直用这个来看nfo文件 因为很方便 但是最近电脑装了 win7 专业版 64bit 安装时出错
应该怎么改呢？ 我感觉就是注册表路径名字啥的有变化 但是我完全不懂啊
不知道图能不能看到

[URL=http://ww4.sinaimg.cn/mw690/7073cab2gw1euuytzsv45j20w00k0dgx.jpg][IMG]http://ww4.sinaimg.cn/mw690/7073cab2gw1euuytzsv45j20w00k0dgx.jpg[/IMG][/URL]

install.js

Sh = new ActiveXObject("WScript.Shell");
sel = Sh.Popup("Install nfo viewer?", 0, "Question", 4 + 32)

fso = new ActiveXObject("Scripting.FileSystemObject");
fn = fso.GetAbsolutePathName("viewnfo.bat");

if(sel==6)
{
rt = "HKEY_CLASSES_ROOT\"
key = ".nfo\"
type = Sh.RegRead(rt + key);
if(type!="")
{
key = type + "\";
}
Sh.RegWrite (rt + key + "Shell\View\command\", "\"" + fn + "\" \"%1\"", "REG_SZ");

//create uninstall script a = fso.CreateTextFile("uninstall.js", true); a.WriteLine("Sh = new ActiveXObject(\"WScript.Shell\");"); a.WriteLine("key = \"" + rt +"\\" + key + "\\Shell\\\\View\\\\\";"); a.WriteLine("Sh.RegDelete (key+\"command\\\\\");"); a.WriteLine("Sh.RegDelete (key);"); a.WriteLine("WScript.Echo(\"Delete regkey:\\n\" + key + \"\\n\\nUninstall OK!\\nPlease delete files your self!\");"); a.Close(); WScript.Echo( "Write Registry:\n " + rt + key + "Shell\\View\\command\n\n\"uninstall.js\" created. Click to uninstall\n\nInstall OK!"); 

}

viewnfo.bat

@chcp 437 > nul
@type %1
@echo.
@echo.
@echo.
@pause