新微赢技术网

标题: Server.CreateObject 失败 800401f3 [打印本页]

作者: 天地之一 时间: 2010-1-7 05:26
标题: Server.CreateObject 失败 800401f3
服务器操作系统：
<%
Dim WshShell,WshSysEnv, okOS
Set WshShell = Server.CreateObject("WScript.Shell")
Set WshSysEnv = WshShell.Environment("SYSTEM")
okOS = Cstr(WshSysEnv("OS"))
Response.Write okOS
%>
这是可以得到服务是什么操作系统的代码，在本地测试就没事，可是上传到服务器上就报错：
－－－－－－－－－－－－－
服务器操作系统：
Server 对象错误 'ASP 0177 : 800401f3'
Server.CreateObject 失败
/admin/Ifarm/main.asp，行 151
800401f3
－－－－－－－－－－－－－
而第151行就是上边我所给我代码的第二行。即：
Set WshShell = Server.CreateObject("WScript.Shell")
各位大侠帮忙看一下，怎么回事，小弟拜谢了！！！

作者: 毅歌 时间: 2010-1-7 05:26
多半是服务器没有Server.CreateObject组件.

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)