Server.CreateObject 失败 800401f3

[复制链接]

天地之一

电梯直达

1^#

发表于 2010-1-7 05:26:22 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

服务器操作系统：
<%
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")
各位大侠帮忙看一下，怎么回事，小弟拜谢了！！！

收藏0