VBScript - Internet Explorer 9

Good afternoon,

My VBScript which launches an IE window and waits for the value of a button to change no longer works following an upgrade from Internet Explorer 8 to 9 (as part of a move to Windows 7 from Windows XP). After clicking the button the value changes from 'Accept' to 'Submit' and then the VBScript should continue however the value of the button is coming back as BLANK / NULL.

Here is the code snippet -

Set objExplorer = WScript.CreateObject("InternetExplorer.Application", "IE_")
objExplorer.Navigate strURL  
      
Do
      strDecision = objExplorer.Document.Body.All.button.Value
Loop While (strDecision = "Submit")

It worked as expected prior to the upgrade so I assume that the element value is read differently in version 9.

Any help appreciated!

Michael
LVL 1
Barnardos_2LSAsked:
Who is Participating?
 
RobSampsonConnect With a Mentor Commented:
Right, I think you'll find that if you run your original by running a command prompt "As Administrator", then running
cscript C:\Scripts\RunAcceptance.vbs

it will work....although I did use:
strDecision = objExplorer.Document.All("button").Value

So, when using a non-admin account, the IE object gets disconnected.  A possible way around that is to loop through the windows after launching the page, and connect to the window found by the window title.

This assumes that the title of the page is the URL you specify, because the TITLE tag isn't set in the HTML.

Regards,

Rob.


'On Error Resume Next

strURL = "http://webserver/test.htm"
Set objExplorer = CreateObject("InternetExplorer.Application")
objExplorer.Navigate strURL  
objExplorer.visible = True
Set objExplorer = Nothing

WScript.Sleep 3000

Set objShellApp = CreateObject("Shell.Application")
For Each objWindow In objShellApp.Windows
	'WScript.Echo objWindow.LocationName
	If LCase(objWindow.LocationName) = LCase(strURL) Then
		Set objExplorer = objWindow
	End If
Next 		

Do 
	'strDecision = objExplorer.Document.getElementByID("isSubmitted").Value
	strDecision = objExplorer.Document.All("button").Value
	wscript.echo strDecision
Loop While (strDecision = "false")

Open in new window

0
 
5teveoCommented:
found this!

http://msdn.microsoft.com/en-us/library/ie/ms537434(v=vs.85).aspx

Hint: all property
[all is no longer supported. Starting with Internet Explorer 11, use getElementById. For info, see Compatibility changes.]
0
 
Barnardos_2LSAuthor Commented:
Thanks for the reply but it no longer works in IE9 (we have not moved to IE11).
0
Cloud Class® Course: SQL Server Core 2016

This course will introduce you to SQL Server Core 2016, as well as teach you about SSMS, data tools, installation, server configuration, using Management Studio, and writing and executing queries.

 
RobSampsonCommented:
Try disabling Protected Mode, and / or add your URL to the Trusted Sites list.

Rob.
0
 
Barnardos_2LSAuthor Commented:
Unfortunately neither has allowed the button value to be read. I've added a screenshot of the element data below if useful.

Element
0
 
RobSampsonCommented:
Try using the following:
strDecision = objExplorer.Document.getElementByID("button").Value

or you can try other properties, like maybe
strDecision = objExplorer.Document.getElementByID("button").innerText

or
strDecision = objExplorer.Document.getElementByID("button").outerText

Regards,

Rob.
0
 
Barnardos_2LSAuthor Commented:
No luck with any of the options unfortunately - all are returned as NULL.
0
 
RobSampsonCommented:
OK.  Could you possible provide the source code (or a cut down version) that I could test with here?
0
 
Barnardos_2LSAuthor Commented:
Here is the VBS - RunAcceptance.vbs
Here is the web page - test.html

Both are referenced to C:\Temp in the VBS.

Thanks for you help.
0
 
Barnardos_2LSAuthor Commented:
Perfect. Thank you for your help.
0
 
RobSampsonCommented:
No problem. Thanks for the grade.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.