code:

---

 break on
 ; --- http://groups.google.com/groups?q=xmlhttp+ftp&hl=en&lr=&ie=UTF-8&selm=%23ZHFbJr3BHA.2488%40tkmsftngp04&rnum=2
 $sxmldata = GetXML("ftp://ftp.microsoft.com/bussys/readme.txt","","")
 ?$sxmldata

 FUNCTION GetXML($surl,$susr,$spasswd)
       ; Create an xmlhttp object:
       DIM $oxml
       $oxml = CreateObject("Microsoft.XMLHTTP")
       ;Opens the connection to the remote server.
       ;rtn  = xml.Open((B))
       $oxml.open "GET" chr(44) $surl chr(44) $false chr(44) $susr chr(44) $spasswd
       ; Actually Sends the request and returns the data:
       $oxml.send
       DO 
             WHILE $oxml.readystate<>4
             SLEEP 10
             LOOP
       UNTIL
       $getxml = $oxml.responsetext
 ENDFUNCTION
  

---