将下面存储为x.js, 双击执行var WshShell = WScript.CreateObject ("WScript.Shell");WshShell.RegWrite ("HKCU\\Software\\ACME\\FortuneTeller\\", 1, "REG_BINARY");
WshShell.RegWrite ("HKCU\\Software\\ACME\\FortuneTeller\\MindReader", "Goocher!", "REG_SZ");var bKey = WshShell.RegRead ("HKCU\\Software\\ACME\\FortuneTeller\\");
WScript.Echo (WshShell.RegRead ("HKCU\\Software\\ACME\\FortuneTeller\\MindReader"));WshShell.RegDelete ("HKCU\\Software\\ACME\\FortuneTeller\\MindReader");
WshShell.RegDelete ("HKCU\\Software\\ACME\\FortuneTeller\\");
WshShell.RegDelete ("HKCU\\Software\\ACME\\");
WshShell.RegWrite ("HKCU\\Software\\ACME\\FortuneTeller\\MindReader", "Goocher!", "REG_SZ");var bKey = WshShell.RegRead ("HKCU\\Software\\ACME\\FortuneTeller\\");
WScript.Echo (WshShell.RegRead ("HKCU\\Software\\ACME\\FortuneTeller\\MindReader"));WshShell.RegDelete ("HKCU\\Software\\ACME\\FortuneTeller\\MindReader");
WshShell.RegDelete ("HKCU\\Software\\ACME\\FortuneTeller\\");
WshShell.RegDelete ("HKCU\\Software\\ACME\\");
var WshShell = WScript.CreateObject ("WScript.Shell");
var bKey =WshShell.RegRead ("HKEY_LOCAL_MACHINE\\SOFTWARE\\BossSoft\\Rj\\");
var Key=WScript.Echo(WshShell.RegRead ("HKEY_LOCAL_MACHINE\\SOFTWARE\\BossSoft\\Rj\\ip"));
window.status=Key;//读出来,显示在IE的状态栏上
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);
window.status=WshShell.RegRead ("HKEY_CURRENT_USER\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page")
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>