JScriptでInputBox

wsh

ScriptControlを使うとできる。

var sc = new ActiveXObject("ScriptControl");
sc.Language = "VBScript";
sc.AddCode("Function f(x,y,z)\nf=InputBox(x,y,z)\nEnd Function");
WScript.Echo(sc.Run("f", "メッセージ", "タイトル", "初期値"));

関数fを定義せずに、直接 sc.Run("InputBox"...) とすると、なぜかエラーになってしまう。

スクリプト コントロールの概要

http://www.microsoft.com/japan/msdn/scripting/scriptcontrol/scoverview.htm