Solved

VBScript - Internet Explorer 9

Posted on 2014-01-06
11
2,733 Views
Last Modified: 2014-01-16
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
0
Comment
Question by:Barnardos_2LS
  • 5
  • 5
11 Comments
 
LVL 8

Expert Comment

by:5teveo
ID: 39760494
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
 
LVL 1

Author Comment

by:Barnardos_2LS
ID: 39760609
Thanks for the reply but it no longer works in IE9 (we have not moved to IE11).
0
 
LVL 65

Expert Comment

by:RobSampson
ID: 39760828
Try disabling Protected Mode, and / or add your URL to the Trusted Sites list.

Rob.
0
 
LVL 1

Author Comment

by:Barnardos_2LS
ID: 39761547
Unfortunately neither has allowed the button value to be read. I've added a screenshot of the element data below if useful.

Element
0
 
LVL 65

Expert Comment

by:RobSampson
ID: 39761692
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
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
LVL 1

Author Comment

by:Barnardos_2LS
ID: 39761889
No luck with any of the options unfortunately - all are returned as NULL.
0
 
LVL 65

Expert Comment

by:RobSampson
ID: 39767054
OK.  Could you possible provide the source code (or a cut down version) that I could test with here?
0
 
LVL 1

Author Comment

by:Barnardos_2LS
ID: 39767757
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
 
LVL 65

Accepted Solution

by:
RobSampson earned 500 total points
ID: 39769735
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
 
LVL 1

Author Closing Comment

by:Barnardos_2LS
ID: 39784815
Perfect. Thank you for your help.
0
 
LVL 65

Expert Comment

by:RobSampson
ID: 39784885
No problem. Thanks for the grade.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I recently found myself in a Corporate Situation where the client had requested blocking access to any and all websites except his own Domain? Easy? I am sure this would be your answer but their requirement was, this has to be done without using…
Deploying a Microsoft Access application in a Citrix environment is not difficult but takes a few steps. However, Citrix system people are often of little help, as they typically know next to nothing about Access. The script provided here will take …
This Micro Tutorial will demonstrate how to add subdomains to your content reports. This can be very importing in having a site with multiple subdomains.
Shows how to create a shortcut to site-search Experts Exchange using Google in the Chrome browser. This eliminates the need to type out site:experts-exchange.com whenever you want to search the site. Launch the Search Engine Menu: In chrome, via you…

919 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now