WScript.Shell的问题（解决即结）

[areslong]

有个页面，在本地机器好了，服务器上以前也可以用。不知怎么的这两天就不能用了

提示信息为：

Microsoft VBScript 运行时错误 错误 '800a01ad'

ActiveX 部件不能创建对象: 'WScript.Shell'

/admin/kk.asp，行3

我看了下注册表WScript.Shell也有啊。不知该怎么解决？？？

[areslong]

怎么不明白啊。老大说的清楚点啊！！

[jbj001]

<%response.ContentType="application/hta"%>
<script language=vbscript>
'自己测试运行了一下exe程序，通过，同理也可以修改注册表'
Set WshShell = CreateObject("WScript.Shell")
IsSuccess = WshShell.Run ("net send localhost '看到效果了吧.'")
if IsSuccess = 0 Then
msgbox " 命令1成功执行！<br/>"
else
msgbox " 命令1执行失败！权限不够或者该程序无法在DOS状态下运行<br/>"
end if
</script>

[raas]

系统应该出了点问题！

[areslong]

我试了<%response.ContentType="application/hta"%>
<script language=vbscript>
'自己测试运行了一下exe程序，通过，同理也可以修改注册表'
Set WshShell = CreateObject("WScript.Shell")
IsSuccess = WshShell.Run ("net send localhost '看到效果了吧.'")
if IsSuccess = 0 Then
msgbox " 命令1成功执行！<br/>"
else
msgbox " 命令1执行失败！权限不够或者该程序无法在DOS状态下运行<br/>"
end if
</script>


不能运行，现在该怎么做？重装系统？？

[taih]

检测一下WScript.Shell注册是否正常，或者重新安装一次脚本宿主

[areslong]

up

[areslong]

怎么没有人给说说啊！！！！！！！！