创建对象“wscript.shell”失败

Question

我的脚本如下：

<script type="text/vbscript">        

Dim WshShell, oExec  
Set WshShell = CreateObject("WScript.Shell")

Set oExec = WshShell.Exec("cmd /c cd D:\d & D: & winzip32.exe -min -a D:\a")

Do While oExec.Status = 0
     WScript.Sleep 100
Loop

WScript.Echo oExec.Status
</script>

想法是使用资源管理器打开这些文件。我遇到的问题就在于：

Set WshShell = CreateObject("WScript.Shell")

我一直收到消息

  

ActiveX组件无法创建对象：'WScript.Shell'

我完全感到困惑，因为如果我把它写进去，这个完全相同的代码运行正常 一个.htm文件。

为什么我的浏览器会将.asp页面与.html文件区别对待？ 我该如何解决这个问题？

Answer 1

执行以下操作解决了我的问题。

开始 - ＆gt;运行 - ＆gt;输入＆＃34; regsvr32.exe wshom.ocx＆＃34; [不含引号] - ＆gt;按回车。

Answer 2

问题解决了。需要在互联网选项中启用一些东西 - security-custom level-activx