VBScript: ActiveX-komponente kann kein Objekt erstellen: "WScript.Shell"

Hi,

ich habe auf einer Webseite eine html-Datei mit VBScript (ruft über einen Button eine Batch auf) erstellt.
Wenn ich den Button, worüber die Batchdatei starten soll, anklicke erscheint der im Titel genannte Fehler. Der Versuch die Sicherheitseinstellungen im IE herunterzustufen hat nichts gebracht.

Jemand eine Idee?

Gruß

Mein Code:

<html>
<head>

<HTA:APPLICATION
ID="Portqry"
APPLICATIONNAME="Portqry"
SCROLL="yes"
SINGLEINSTANCE="no"
WINDOWSTATE="maximize"

</head>

<SCRIPT LANGUAGE="VBScript">

Sub portqry()

Set objShell = CreateObject("WScript.Shell")
objShell.Run("C:\Programme\PsTools\psexec \\192.168.18.242 -i -u * -p * query.bat")

End SUB
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">

Sub Button2_OnClick

portqry()

End SUB
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">

Sub beenden()

Set objShell = CreateObject("WScript.Shell")
objShell.Run("C:\Programme\PsTools\psexec \\192.168.18.242 -i -u * -p * beenden.bat")

End SUB
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">

Sub Button3_OnClick

beenden()

End SUB
</SCRIPT>

<body>

<FORM>
<INPUT NAME="Button2" TYPE="BUTTON" VALUE="Portquery starten">
<INPUT NAME="Button3" TYPE="BUTTON" VALUE="Portquery beenden">
</FORM>

</body>
</html>