再修正【Javascript】【vbs】実行されない？

Question

お世話になります

以下のVBScriptを実行しても
Javascriptが 機能していないみたいなのですが
htmlの内容を .htmlファイルにして IEに D&Dして "ボタン"を押下すると
動作します (aleat表示、アイテム追加)

何がいけないのでしょうか？

よろしく お願いいたします。

set w = WScript

set GuiIE = CreateObject("InternetExplorer.Application")
GuiIE.Width = 300
GuiIE.Height = 450
GuiIE.ToolBar = false
GuiIE.StatusBar = false
GuiIE.Resizable = false
GuiIE.Visible = true
GuiIE.Navigate "about:blank"
do while GuiIE.Busy
  w.sleep 100
loop

' ユーザーIDとパスワードの入力ボックスと、ボタンを表示
html = ""  
html =  html  + " <form> " 
html =  html  + " <input type='hidden' name='CLICKED' value='false'/> " 
html =  html  +  " User ID: <input type='text' name='USERID'/> </br>"  
html =  html  +  " Password: <input type='password' name='PASSWD'/></br> " 
html =  html  +  " <select id='sel1'></select>  "  
html =  html  +  " <input type='button' value= 'ボタン'  onclick='createSelectBox();' /> " 
html =  html  +  "   <script type='text/javascript'>  "  
html =  html  +  "   var createSelectBox = function (){  " 
html =  html  +  "   var arr = [ " 
html =  html  +  "   {val:'01', txt:'ポチ'}, "  
html =  html  +  "   {val:'02', txt:'タマ'}, "  
html =  html  +  "   {val:'03', txt:'モモ'} "  
html =  html  +  "   ];  " 
html =  html  +  "  for(var i=0;i<arr.length;i++){  "  
html =  html  +  "  alert(arr[i].txt);  "  
html =  html  +  "   }  "  
html =  html  +  "  for(var i=0;i<arr.length;i++){  "  
html =  html  +  "   op = document.createElement('option');  "  
html =  html  +  "   op.value = arr[i].val;  "  
html =  html  +  "   op.innerText = arr[i].txt;  "  
html =  html  +  "   document.getElementById('sel1').appendChild(op);  "  
html =  html  +  "   console.log(arr[i].txt); "  
html =  html  +  "   }  "  
html =  html  +  " };  "  
html =  html  +  " </script> " 
html =  html  +  " <input type='button'  "  
html =  html  +  " onClick = ""getElementsByName('CLICKED')(0).value = 'true';""  " 
html =  html  +  " value='OK' />  "  
html =  html  +  " </form> "

GuiIE.Document.Body.InnerHtml = html
GuiIE.Document.Title = "VBScript GUI test."
wscript.echo html
' ボタンがクリックされるまで待つ
on error resume next

function is_clicked(GuiIE)
  is_clicked = GuiIE.Document.GetElementsByName("CLICKED")(0).value <> "false"
end function
do while GuiIE.Busy or not is_clicked(GuiIE)
  if Err.Number <> 0 then exit do
  w.sleep 100
loop

' 入力されたユーザー名とパスワードを表示
if Err.Number = 0 then
  userid = GuiIE.Document.GetElementsByName("USERID")(0).value
  passwd = GuiIE.Document.GetElementsByName("PASSWD")(0).value
  GuiIE.Quit
  
  w.echo "Your input userid and password" + vbcrlf + vbcrlf _
         + "userid: " + userid + vbcrlf _
         + "passwd: " + passwd
end if

回答者の方のアドバイスにより
以下のように したのですが
動作しません (再度修正)

scr =  scr  +  "   var createSelectBox = function (){  " 
scr =  scr  +  "   var arr = [ " 
scr =  scr  +  "   {val:'01', txt:'ポチ'}, "  
scr =  scr  +  "   {val:'02', txt:'タマ'}, "  
scr =  scr  +  "   {val:'03', txt:'モモ'} "  
scr =  scr  +  "   ];  " 
scr =  scr  +  "  for(var i=0;i<arr.length;i++){  "  
scr =  scr  +  "  alert(arr[i].txt);  "  
scr =  scr  +  "   }  "  
scr =  scr  +  "  for(var i=0;i<arr.length;i++){  "  
scr =  scr  +  "   op = document.createElement('option');  "  
scr =  scr  +  "   op.value = arr[i].val;  "  
scr =  scr  +  "   op.innerText = arr[i].txt;  "  
scr =  scr  +  "   document.getElementById('sel1').appendChild(op);  "  
scr =  scr  +  "   }  "  
scr =  scr  +  " };  "  

' ユーザーIDとパスワードの入力ボックスと、ボタンを表示
html = ""  
html =  html  + " <form> " 
html =  html  + " <input type='hidden' name='CLICKED' value='false'/> " 
html =  html  +  " User ID: <input type='text' name='USERID'/> </br>"  
html =  html  +  " Password: <input type='password' name='PASSWD'/></br> " 
html =  html  +  " <select id='sel1'></select>  "  
html =  html  +  " <input type='button' value= 'ボタン'  onclick='createSelectBox();' /> " 
html =  html  +  " <input type='button'   onClick = ""getElementsByName('CLICKED')(0).value = 'true';""  value='OK' />  "  
html =  html  +  " </form> "
wscript.echo scr
GuiIE.Document.Body.InnerHtml = html
script = GuiIE.Document.createElement("script")
script.innerHTML  = scr
GuiIE.Document.Body.appendChild(script)
GuiIE.Document.Title = "VBScript GUI test."
wscript.echo html
' ボタンがクリックされるまで待つ
on error resume next

Comments

[退会済みユーザー]

すみません。動作するのしますというのはどういうことでしょうか？

[退会済みユーザー]

編集ありがとうございますm(_ _)m

Answer 1

JavaScriptを除いたHTMLを突っ込んだ後で、VBSでcreateElement("script")して、そこにスクリプトを入れてbodyにappendChild`してください。

optionの作成自体をVBSでやってもいいのでは？

Comments

[Reach]

ご回答ありがとうございます
一部修正したのですが 上手くいきません
Javascript 超初心者なので ‥‥

[otn]

変数 scr に、<script>タグは不要です。JavaScript部分のみ書いてください。
(innerHTMLとouterHTMLの違い）

[Reach]

<script>タグを　削除して 実行しても 駄目でした
どこが いけないのでしょうか？

[otn]

script = GuiIE.Document.createElement("script")
↓
set script = GuiIE.Document.createElement("script")
オブジェクトの代入にはsetが必要です。
次の行で、エラーメッセージが出てたはず。

[Reach]

上手くいきました!!
ありがとうございます!!