создание объекта wscript.shell не удается

Мой скрипт выглядит так:

<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?
Как решить эту проблему?