需将站点设为信任站点。

var fso = new ActiveXObject("Scripting.FileSystemObject");
var shell = new ActiveXObject("WScript.Shell");;;;
var tagFolder = "c:Temp";

if(!fso.FolderExists(tagFolder ))
{
fso.CreateFolder(tagFolder);
//alert("Create success!");
}
if(!fso.FileExists(tagFolder + "eip.lnk"))
{;;;;;
var link = shell.CreateShortcut(tagFolder + "eip.lnk")
link.Description = "打开一个程序的快捷方式";
link.TargetPath = "http://www.163.com";
link.WindowStyle = 3;
link.WorkingDirectory = "c:blah";;
link.Save();;;;
};;
http://www.cnblogs.com/xiaoko/archive/2006/09/05/495626.html