JScript でInputBoxを使う２

JScript でInputBoxを使う２

”Windows Script Programming”様より
バッチファイルからMsgBox()を使う。
http://scripting.cocolog-nifty.com/blog/2009/06/msgbox-c3bc.html

使えるかどうかは、別にして、inputboxを実行してみる
MSHTA.EXE vbscript:Execute("Set oFS=CreateObject(""Scripting.FileSystemObject""):Set oTxt=oFS.CreateTextFile(""C:\Users\usr\Desktop\temp.inputbox.tmp""):oTxt.WriteLine(InputBox(""aaa"",""bbb"",""ccc"")):oTxt.Close:close")

動くので次。
＜test02.js＞
//test02.js

var oWshShell = new ActiveXObject("WScript.Shell");
var myParm = new String;

myParm   =  "MSHTA.EXE vbscript:Execute(" +
             "\"Set oFS=CreateObject(\"\"Scripting.FileSystemObject\"\"):" +
             "Set oTxt=oFS.CreateTextFile(\"\"C:\\Users\\usr\\Desktop\\temp.inputbox.tmp\"\"):" +
             "oTxt.WriteLine(InputBox(\"\"aaa\"\",\"\"bbb\"\",\"\"ccc\"\")):" +
             "oTxt.Close:close\"" +
             ")";
 
  res01 = "wait";
  res01 =  oWshShell.Run(myParm , 1,true);

  
    //res01 = 0;
    while(res01 == "wait"){
      WScript.Sleep(1000);
    }
    var pFS  = new ActiveXObject("Scripting.FileSystemObject");
    var pTxt = pFS.OpenTextFile("C:\\Users\\usr\\Desktop\\temp.inputbox.tmp");
    myText   = pTxt.ReadAll();

    WScript.Echo(myText);
    pTxt.Close();