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

I «Я полностью смущен, потому что этот точно такой же код работает нормально, если я напишу его в файле a .htm.

Почему мой браузер обрабатывает мою страницу .asp иначе, чем файл .html?
Как исправить эту проблему?

Answer 1

проблема решена. необходимо включить несколько вещей в настройках Интернета - уровень безопасности - пользовательский уровень - activx

Answer 2

Выполнение следующего разрешено.

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