缺少对象: 'WScript' 怎么办？

缺少对象: 'WScript'  怎么办？ 
我是要将"http://127.0.0.1/user/up.htm"在本目录生成一个快捷方式"公司激活" http://127.0.0.1/user/qq.asp: <% 
dim WshShell 
set WshShell=WScript.CreateObject("WScript.Shell") 
set oUrlLink=WshShell.CreateShortcut("公司激活.lnk") 
oUrlLink.TargetPath = "http://127.0.0.1/user/up.htm" 
oUrlLink.Description = "公司激活" 
oUrlLink.Save 
%> 但是运行提示： 错误类型： 
Microsoft VBScript 运行时错误 (0x800A01A8) 
缺少对象: 'WScript' 
/user/qq.asp, 第 3 行 
浏览器类型： 
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727) 网页： 
GET /user/qq.asp 
请教请教！谢谢先！