<html>
<head><title>html page : abc.htm</title>
<script language="vbscript">
<!--
function validate()
if signin.txtname.value = "" then
msgbox "You've not entered your name."
validate=false
document.signin.txtname.focus
exit function
end if
validate=true
document.signin.submit
end function
-->
</script>
</head>
<body onLoad="document.signin.txtname.focus">
<form name=signin method=post action="xyz.asp">
<input type=text id=txtid name=txtname size=56> <br>
<input type=button id=submitid name=submitbtn value=Submit onclick="validate()">
</form>
</body>
</html>dim oIE
set oIE=createobject("InternetExplorer.Application")
oIE.navigate "abc.htm" '<<<url
oIE.visible=true
if oIE.busy then wscript.sleep 20 : end if
'wscript.echo "loaded"
set oDoc=oIE.document
oDoc.getElementById("txtid").value="tsuji"
'wscript.echo "Now you see what you have typed into the text input."
msgbox "Now you see what you have typed into the text input.", vbOKOnly, "Windows Script Host"
oDoc.getElementById("txtid").value=oDoc.getElementById("txtid").value & " " & "- Now I don't want to sign in."
msgbox "Now you see the effect.", vbOKOnly, "Windows Script Host"
iRet=msgbox("Are you ready to submit?", vbYesNo, "Windows Script Host")
If iRet=vbYes Then
oDoc.getElementById("submitid").click
Else
'do nothing
End If
msgbox "Do you see the effect?", vbOKOnly, "Windows Script Host"
'oIE.quit
set oIE=nothing