function toDesktop() {
    var e = getDomainName();//路径
    try {
        var n = new ActiveXObject("WScript.Shell"),
        t = n.CreateShortcut(n.SpecialFolders("Desktop") + "\\测试.url");
        t.TargetPath = e,
        t.Save()
    } catch(i) {
        alert("快捷方式创建失败，浏览器不支持！")
    }
}