VBScript getting values from a form

Question

I have a simple form

<div id="stylized" class="myform">
 <form id="mysmartform">
 <h1>CourtSmart Server Status</h1>
 <p>Are the servers running?</p>

<label>Yes
 <span class="small">All Servers Are Running</span>
 </label>
 <input type="radio" name="formradio" id="stylized" value="yes" />

<label>No
 <span class="small">We Have A Problem</span>
 </label>
 <input type="radio" name="formradio" id="stylized" value="no" />

<label>eMail
    <span class="small"></span>
</label>
<select name="formemail" size="1">
    <option value="someone@example.com" selected="selected">someone@example.com</option>
    <option value="someone@example.com">someone@example.com</option>
    <option value="someone@example.com">someone@example.com</option>
    <option value="someone@example.com">someone@example.com</option>
    <option value="someone@example.com">someone@example.com</option>
</select>


<button type="submit" id="sendReport">Send Status Report</button>
 <div class="spacer"></div>

Using VBScript I want to access the values for the selected radio button and the selected email address and just do a simple MsgBox to display it

Why VBScript? Is that HTML page embedded in an application or macro? — bfavaretto, Aug 01 '12 at 15:56
Well I can accept JavaScript if you can tell me how to do this WSHShell.Run "wscript """ & Path & "NotLogHeat1parm.vbs"" """ & Path & """" — Cocoa Dev, Aug 01 '12 at 15:58

David · Accepted Answer · 2012-08-02T02:55:43.577

1

Option Explicit
Dim objIE : Set objIE = CreateObject("InternetExplorer.Application")

objIE.Visible = False
objIE.Navigate "file://C:/form.html"
Do Until objIE.ReadyState = 4
WScript.Sleep 100
Loop

Dim value_running
Dim value_problem
Dim result

value_running = objIE.Document.getElementsByTagName("input").item(0).value
value_problem = objIE.Document.getElementsByTagName("input").item(1).value

If StrComp(value_running,"yes")=0 Then
    result = 0
ElseIf StrComp(value_problem,"yes")=0 Then
    result = 1
Else
    result = -1
End If

Wscript.Echo Result

edited Aug 02 '12 at 02:55

answered Aug 01 '12 at 21:28

David

6,462
2
25
22

Just regular VBS, but I think it could be adapted to HTA. – David Aug 02 '12 at 17:59
What was the error? What was your command line to run the script? I just saved your HTML as a local file, then ran `wscript.exe extract.vbs`. I didn't see any errors. – David Aug 02 '12 at 20:32
Line 6. Do Until objIE.ReadyState = 4. "The system interface is unknown". I am using IE9 but need to make sure it works on all versions of IE – Cocoa Dev Aug 03 '12 at 13:17
I think that has something to do with your system or your browser settings. Take a look at this other [post](http://stackoverflow.com/questions/1014815/how-do-you-get-watin-to-work-on-windows-server-2008-with-ie8). Look at the first two answers. Are you running as administrator in your shell? – David Aug 03 '12 at 19:44

score 0 · Answer 2 · answered Aug 01 '12 at 21:25

If you mean running a vbscript, putting some GUI up in IE and getting the value's, here is an example

Set web = CreateObject("InternetExplorer.Application") 
If web Is Nothing Then 
  msgbox("Error while loading Internet Explorer") 
  Wscript.Quit 
Else 
  with web 
    .Width = 300 
    .Height = 175 
    .Offline = True 
    .AddressBar = False 
    .MenuBar = False 
    .StatusBar = False 
    .Silent = True 
    .ToolBar = False 
    .Navigate "about:blank" 
    .Visible = True 
  end with 
End If 

'Wait for the browser to navigate to nowhere 
Do While web.Busy 
  Wscript.Sleep 100 
Loop 

'Wait for a good reference to the browser document 
Set doc = Nothing 
Do Until Not doc Is Nothing 
  Wscript.Sleep 100 
  Set doc = web.Document 
Loop 

'Write the HTML form 
doc.Write "Give me a name<br><form><input type=text name=name ><input type=button name=submit id=submit value='OK' onclick='javascript:submit.value=""Done""'></form>" 
Set oDoc = web.Document 
Do Until oDoc.Forms(0).elements("submit").Value <> "OK" 
  Wscript.Sleep 100 
  If web Is Nothing or Err.Number <> 0 Then 
    msgbox "Window closed" 
    Wscript.Quit 
  End If 
Loop 
name = oDoc.Forms(0).elements("name").value 
oDoc.close 
set oDoc = nothing 
web.quit 
set web = nothing 
Wscript.echo "Hello " & name

VBScript getting values from a form

2 Answers2