Option Explicit

'Dim objWshShell
Dim IE
Dim Shell_Windows
Dim oInputs
Dim elm

'Set objWshShell = Wscript.CreateObject("Wscript.Shell")
Set IE = CreateObject("InternetExplorer.Application")


With IE
  .Visible = True
  .Navigate "http://qprwva007.mpoad.local:81/jde/servlet/com.jdedwards.runtime.virtual.LoginServlet"

  Do While .Busy
    WScript.Sleep 100
  Loop

  .Document.getElementsByName("User").Item(0).Value = "FRPMPB"
  .Document.getElementsByName("Password").Item(0).Value = "FRPMPB"
  .Document.getElementsByName("Environment").Item(0).Value = "JPD7333"

  Set oInputs = .Document.getElementsByTagName("input")
  For Each elm In oInputs
    If elm.Value = "Connexion" Then
      elm.Click
      Exit For
    End If
  Next

  Do While .Busy
    WScript.Sleep 100
  Loop

  .Document.parentWindow.execScript "launchApp('FRPR1000', 'Visualisation+OF+m%e8re-matrice+au+pr%e9mast', '10', '01', getTaskViewsSelection(), 'OWHTML', '1')"

  Do While .Busy
    WScript.Sleep 100
  Loop
End With

Dim objShell
Set objShell = CreateObject("Shell.Application")
Dim IE_count
IE_count = objShell.Windows.Count
Dim x
For x = 0 To (IE_count - 1)
  msgbox("foo")
next