создание объекта "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

Выполнение следующих действий решило проблему для меня.

Пуск -> Выполнить -> Введите «regsvr32.exe wshom.ocx» [без кавычек] -> нажмите Enter.

Answer 2

проблема решена. нужно включить несколько вещей в настройках интернета - security-custom level- activx