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

お世話になります

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

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

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

vbs
1set w = WScript
2
3set GuiIE = CreateObject("InternetExplorer.Application")
4GuiIE.Width = 300
5GuiIE.Height = 450
6GuiIE.ToolBar = false
7GuiIE.StatusBar = false
8GuiIE.Resizable = false
9GuiIE.Visible = true
10GuiIE.Navigate "about:blank"
11do while GuiIE.Busy
12  w.sleep 100
13loop
14
15' ユーザーIDとパスワードの入力ボックスと、ボタンを表示
16html = ""  
17html =  html  + " <form> " 
18html =  html  + " <input type='hidden' name='CLICKED' value='false'/> " 
19html =  html  +  " User ID: <input type='text' name='USERID'/> </br>"  
20html =  html  +  " Password: <input type='password' name='PASSWD'/></br> " 
21html =  html  +  " <select id='sel1'></select>  "  
22html =  html  +  " <input type='button' value= 'ボタン'  onclick='createSelectBox();' /> " 
23html =  html  +  "   <script type='text/javascript'>  "  
24html =  html  +  "   var createSelectBox = function (){  " 
25html =  html  +  "   var arr = [ " 
26html =  html  +  "   {val:'01', txt:'ポチ'}, "  
27html =  html  +  "   {val:'02', txt:'タマ'}, "  
28html =  html  +  "   {val:'03', txt:'モモ'} "  
29html =  html  +  "   ];  " 
30html =  html  +  "  for(var i=0;i<arr.length;i++){  "  
31html =  html  +  "  alert(arr[i].txt);  "  
32html =  html  +  "   }  "  
33html =  html  +  "  for(var i=0;i<arr.length;i++){  "  
34html =  html  +  "   op = document.createElement('option');  "  
35html =  html  +  "   op.value = arr[i].val;  "  
36html =  html  +  "   op.innerText = arr[i].txt;  "  
37html =  html  +  "   document.getElementById('sel1').appendChild(op);  "  
38html =  html  +  "   console.log(arr[i].txt); "  
39html =  html  +  "   }  "  
40html =  html  +  " };  "  
41html =  html  +  " </script> " 
42html =  html  +  " <input type='button'  "  
43html =  html  +  " onClick = ""getElementsByName('CLICKED')(0).value = 'true';""  " 
44html =  html  +  " value='OK' />  "  
45html =  html  +  " </form> "
46
47GuiIE.Document.Body.InnerHtml = html
48GuiIE.Document.Title = "VBScript GUI test."
49wscript.echo html
50' ボタンがクリックされるまで待つ
51on error resume next
52
53function is_clicked(GuiIE)
54  is_clicked = GuiIE.Document.GetElementsByName("CLICKED")(0).value <> "false"
55end function
56do while GuiIE.Busy or not is_clicked(GuiIE)
57  if Err.Number <> 0 then exit do
58  w.sleep 100
59loop
60
61' 入力されたユーザー名とパスワードを表示
62if Err.Number = 0 then
63  userid = GuiIE.Document.GetElementsByName("USERID")(0).value
64  passwd = GuiIE.Document.GetElementsByName("PASSWD")(0).value
65  GuiIE.Quit
66  
67  w.echo "Your input userid and password" + vbcrlf + vbcrlf _
68         + "userid: " + userid + vbcrlf _
69         + "passwd: " + passwd
70end if

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

vbs
1
2scr =  scr  +  "   var createSelectBox = function (){  " 
3scr =  scr  +  "   var arr = [ " 
4scr =  scr  +  "   {val:'01', txt:'ポチ'}, "  
5scr =  scr  +  "   {val:'02', txt:'タマ'}, "  
6scr =  scr  +  "   {val:'03', txt:'モモ'} "  
7scr =  scr  +  "   ];  " 
8scr =  scr  +  "  for(var i=0;i<arr.length;i++){  "  
9scr =  scr  +  "  alert(arr[i].txt);  "  
10scr =  scr  +  "   }  "  
11scr =  scr  +  "  for(var i=0;i<arr.length;i++){  "  
12scr =  scr  +  "   op = document.createElement('option');  "  
13scr =  scr  +  "   op.value = arr[i].val;  "  
14scr =  scr  +  "   op.innerText = arr[i].txt;  "  
15scr =  scr  +  "   document.getElementById('sel1').appendChild(op);  "  
16scr =  scr  +  "   }  "  
17scr =  scr  +  " };  "  
18
19' ユーザーIDとパスワードの入力ボックスと、ボタンを表示
20html = ""  
21html =  html  + " <form> " 
22html =  html  + " <input type='hidden' name='CLICKED' value='false'/> " 
23html =  html  +  " User ID: <input type='text' name='USERID'/> </br>"  
24html =  html  +  " Password: <input type='password' name='PASSWD'/></br> " 
25html =  html  +  " <select id='sel1'></select>  "  
26html =  html  +  " <input type='button' value= 'ボタン'  onclick='createSelectBox();' /> " 
27html =  html  +  " <input type='button'   onClick = ""getElementsByName('CLICKED')(0).value = 'true';""  value='OK' />  "  
28html =  html  +  " </form> "
29wscript.echo scr
30GuiIE.Document.Body.InnerHtml = html
31script = GuiIE.Document.createElement("script")
32script.innerHTML  = scr
33GuiIE.Document.Body.appendChild(script)
34GuiIE.Document.Title = "VBScript GUI test."
35wscript.echo html
36' ボタンがクリックされるまで待つ
37on error resume next
38