title: VBscript (screen scraping) broken in IE8
body: <p>Wrote a vbscript to get fedex quotes. Works great in IE6 however in IE8 (any mode) breaks with a 
  Error: Object required: 'element' Code: 800A01A8</p>
  
  <p>I am stumped here is the code:</p>
  
  <pre><code>dim ie1
  
  dim wsh : Set wsh = CreateObject("WScript.Shell")
  
  Dim ArgObj, var1, var2, var3, var4: Set ArgObj = WScript.Arguments  
  var1 = 2.5 'ArgObj(0) 'First parameter
  var2 = 2.5 'ArgObj(1) 'Second parameter
  var3 = 2.5 'ArgObj(2) 'Third parameter
  var4 = 2.5 'ArgObj(3) 'Fourth parameter
  
  
  dim zip
  zip=InputBox("Please enter destination zip code - You must have Internet access for this to work", " Destination Zip Code", 12345) 
  Const URL = "https://www.fedex.com/ratefinder/home?cc=US&amp;language=en&amp;locId="
  set ie1=WScript.CreateObject("InternetExplorer.Application")
  with ie1
    .Visible =1
  
  'dim wsh : Set wsh= CreateObject( "WScript.Shell" )
  'dim iefocus
  'Do Until iefocus
  'iefocus=wsh.AppActivate("Microsoft Internet Explorer")
  
  'Loop
  
    .Navigate URL
    Do Until .ReadyState = 4
      WScript.Sleep 50    ' wait for page to load
    Loop
  
  
  On Error resume next
    With .document.forms("logonForm")
   .username.value = ""      ' enter company into a textbox
   .password.value = ""      ' enter name into a textbox
   .submit
  
  WScript.Sleep 100    ' wait for page to load
  Do Until ie1.busy=0
      WScript.Sleep 50    ' wait for page to load
    Loop
  
  End With
  
  On Error Goto 0
  With ie1.document.forms("standAloneActionForm")
  
  
   .origZip.value = "84016"
   .destZip.value=zip
   .receivedAtCode.value=1
   .totalPackageWeight.value=var1
  
  
      For Each element in .elements
        If element.type = "button" and element.value="Get detailed quote" Then
  element.click
        End If
      Next
  
  WScript.Sleep 500    ' wait for page to load
  Do Until ie1.busy=false
      WScript.Sleep 50    ' wait for page to load
    Loop
  
  
  With ie1.document.forms("standAloneActionForm")
      For Each element in .elements
  
      If element.type = "text" Then
  
  '.if element.value="Select" then element.value.selectedindex=1
  if element.value="L" then element.value=var2
  if element.value="W" then element.value=var3
  if element.value="H" then element.value=var4
  
      End If
      Next
  
  
  
  With ie1.document.forms("PackageList")
  
  ' .packageType.value=1
  '    For Each element in .elements
  
      If element.type = "Select" Then
  .packageType.value=1
  'if element.value="Select" then element.value=1
  
      End If
     ' Next
  
  
  
  '    For Each element in .elements
        If element.type = "button" and element.value="Continue" Then
  element.click
        End If
  '    Next
  
  
  
  end with
  end with
  end with
  end with
  </code></pre>
  
  <p>It breaks right after "PackageList" Which is a dropdown box.</p>
  
  <p>Any ideas would help. </p>