关于创建快捷方式的问题

Question

<script language="Jscript">
function createShortcutFile(title,URL){
var fso, ts;
var ForWriting= 2;
fso = new ActiveXObject("Scripting.FileSystemObject");
ts = fso.OpenTextFile("C:\\Documents and Settings\\All Users\\桌面\\"+title+".url", ForWriting, true);
ts.WriteLine("[DEFAULT]");
ts.WriteLine("BASEURL="+URL);
ts.WriteLine("[InternetShortcut]");
ts.WriteLine("URL="+URL);
}
var URL="http://5y.nuc.edu.cn";
var title="信息与通信工程学院";
</script>
<input type="button" onclick="createShortcutFile('信息与通信工程学院','http://5y.nuc.edu.cn')" value="点击创建快捷方式" />

Answer 1

Jscript
创建文件会有安全提示
还有假设C:是系统盘

Answer 2

<script language="Jscript">
function createShortcutFile(title,URL){
var fso, ts;
var ForWriting= 2;
fso = new ActiveXObject("Scripting.FileSystemObject");
var path="C:\\Documents and Settings\\All Users\\桌面\\"+title+".url"
if(!fso.FileExists(path)){
ts = fso.OpenTextFile(path, ForWriting, true);
ts.WriteLine("[DEFAULT]");
ts.WriteLine("BASEURL="+URL);
ts.WriteLine("[InternetShortcut]");
ts.WriteLine("URL="+URL);
} else{
alert("快捷方式存在!");
}
}
</script>
<input type="button" onclick="createShortcutFile('信息与通信工程学院','http://5y.nuc.edu.cn')" value="点击创建快捷方式" />

Answer 3

TO:love01px(JAVA ＣＵＰ) 
不好意思，前段时间出差，一直没有结帖，我用你帖的代码，结果JS有错
行:15
字符:1
代码:0
错误:Automation 服务器不能创建对象
网址:http://localhost/hd118/online/WebForm2.aspx
不知道为什么呢？？