Help to enhance/improve this vb script

Hi Expert,

I have a vb script that call/open an SSRS link from IE9. Right now my script displayed/open only 1 page.
May I ask your help to enhance this script.

1. I wanted when the first page (1) Open then after 5 mins. the frist page(1) will be close then the second page will be show/open.
basically for both pages the interval time to open/run is 5 mins.

2. I possible to fit into the screen the display using script.

The main objective is automate display the result of SSRS in an LCD monitor that can be viewed by workers.
The can see the data real time and they have to make a decision if there's an immidiate needs to work for the production output.

Or Do you have any idea? THank you in advance.

Dim ie, objshl, wnd, shl

Set shl = CreateObject("Shell.Application")
On Error Resume Next
For Each wnd In shl.Windows
    If InStr(1, wnd.Fullname, "iexplore.exe", vbTextCompare) > 0 Then
        Set ie = wnd
        ie.Quit
     End If
Next
DoEvents

Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "https://www.yahoo.com/"  -- This is on a sample page..Origal page will be an SSRS report link.
Do While ie.Busy

Loop
ie.Visible = True
ie.FullScreen = True


CreateObject("WScript.Shell").AppActivate ie.Name
Set ie = Nothing

Hi Paresh J,

I tried to insert the google.com based on the codes you have given but its not working.

i wanted to run first the yahoo then let say 5 minutes then after 5 minutes i wanted to run the google.. vice versa...

Hi Paresh J,

Try to run the codes you have given, I encounter an error. Please see modified scripts. maybe i have a missing codes.

Dim ie, objshl, wnd, shl

Set shl = CreateObject("Shell.Application")
On Error Resume Next
For Each wnd In shl.Windows
    If InStr(1, wnd.Fullname, "iexplore.exe", vbTextCompare) > 0 Then
        Set ie = wnd
        ie.Quit
     End If
Next
DoEvents

Set ie = CreateObject("InternetExplorer.Application")

i=1
Do While ie.busy
  If i =1 then 
     ie.Navigate "https://login.yahoo.com/?.src=ym&.intl=us&.lang=en-US&.done=http://mail.yahoo.com"  
     Application.Wait (Now + TimeValue("00:05:00"))  '' change this as per your requirement
     i = i + 1
  ElseIf i = 2 then
     ie.Navigate "https://www.google.com.ph/?gws_rd=ssl"
     Application.Wait (Now + TimeValue("00:05:00"))  '' change this as per your requirement
     i = 1
  EndIf
Loop

ie.Visible = True
ie.FullScreen = True

CreateObject("WScript.Shell").AppActivate ie.Name
Set ie = Nothing

Hi Paresh J, thank you very much for your prompt reply.

Compile the code to .vbs script and run through task manager to repeatedly run the codes for every 15 minutes (for testing).
Basically it should run the codes 5 minutes for yahoo and then after 5 minutes the google will come up. therefor, upon testing the first URL come up is yahoo, i'm waiting for almost 6 mis. the google did not come up. Then try to put a msgbox after the application wait, then clicking the message box the google come out.

btw, is possible to run simultaneously both the URL then automate the tab that should be open. just another idea if its doable. thank you.