Seems the whatsmyuseragent.com updated their page, and broke the udf above. Here's a newer version.

 Code:
function GetIEUserAgent()
  dim $ie,$page,$i,$j
  $ie=createobject("InternetExplorer.Application")
  while $GetIEUserAgent="" and $j<5
    $ie.navigate("http://whatsmyuseragent.com/")
    while $ie.busy and $ie.readystate <> 4 loop
    if $ie.document
      $page=split($ie.document.documentelement.innerhtml,chr(10))
      for $i=0 to ubound($page)
        if instr($page[$i],'id="body_lbUserAgent">')
          $GetIEUserAgent=trim(split(split($page[$i],'id="body_lbUserAgent">')[1],"<")[0])
        endif
      next
    endif
    $j=$j+1
  loop
  $ie.quit
endfunction
_________________________
(... better days ahead)