COM-объект, умеющий исполнять JScript:
<component>
<public><method name='eval'/></public>
<script language='JScript'></script>
</component>
— сохранить в файл с расширением «wsc».
Так как я не знаю, где его нужно использовать, то приведу пример вызова из VBSript:
Set JS = GetObject("script:" & WScript.ScriptFullName & "\..\JS.wsc")
MsgBox JS.eval("2*2")
Set JsGlobal = JS.eval("this")
MsgBox JsGlobal.Math.PI
То же на AutoHotkey (добавлено 30.12.2013):
JS := ComObjGet("script:" . A_ScriptDir . "\JS.wsc")
MsgBox % JS.eval("2*2")
JsGlobal := JS.eval("this")
MsgBox % JsGlobal.Math.PI
Вместо трансляции функции eval() можно сразу передавать глобальный объект JScript (хотя код wsc в этом случае будет чуть менее минималистичным) или и то и другое сразу, хотя достаточно чего-либо одного — второе можно будет получить через него. (Хотя, к слову, из htmlfile передать глобальный объект JScript в VBScript мне не удалось.)
--------------------
02.01.2014: Добавил решение в коллекцию: AHK: Выполненние JScript-кода с помощью WSC.