js生成桌面快捷方式以及图标

function createShortcut(sUrl,sName) {

try{

debugger;

var fso = new ActiveXObject("Scripting.FileSystemObject");

var shell = new ActiveXObject("WScript.Shell");

var tagFolder = shell.SpecialFolders("Desktop");

if(!fso.FolderExists(tagFolder )) {

fso.CreateFolder(tagFolder);

}

if(!fso.FileExists(tagFolder + "\\"+sName+".lnk")) {

var WshSysEnv = shell.Environment("Process");

iLocal = (WshSysEnv.Item("SystemRoot") +"\\favicon.ico"); //下载到C:\windows\1.ico

iRemote = (路径名+"/favicon.ico"); //先下载图标文件，再用自定义图标把首页的图标地址替换

var xPost = new ActiveXObject("Microsoft.XMLHTTP");

xPost.Open("GET", iRemote, 0);

xPost.Send();

var sGet = new ActiveXObject("ADODB.Stream");

sGet.Mode = 3;

sGet.Type = 1;

sGet.Open();

sGet.Write(xPost.ResponseBody );

sGet.SaveToFile( iLocal,2);

var link = shell.CreateShortcut(tagFolder + "\\"+sName+".lnk");

link.Description = "";

link.Hotkey = "Ctrl+Alt+e";

link.TargetPath = sUrl;

link.IconLocation=iLocal;

link.WindowStyle = 3;

link.WorkingDirectory = "c:

\\blah";

link.Save();

alert("恭喜！快捷方式创建成功！");

}else{

alert("该快捷方式已经存在");

}

}

catch(ex){

alert("快捷方式创建失败，可能浏览器不支持！"+ex);

}

}