Home/ Questions/Q 8329461
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-06-09T01:47:48+00:00

I have a simple form <div id=stylized class=myform> <form id=mysmartform> <h1>CourtSmart Server Status</h1> <p>Are

  • 0

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

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team
    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
    • 0