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