thanks kent, will post into UDF if you don't mind.
final code which works without xmlhttp-sdk:
code:
Function FTPget($sURL, $sTargetFile)
  Dim $oFTP, $oStream
  $oFTP = CreateObject("Microsoft.XMLHTTP")
  if @error ?"ftp init:" cerror endif
  $oStream = CreateObject("ADODB.Stream")
  if @error ?"ado init:" cerror endif

  $oFTP.Open("GET", $sURL, not 1)
  if @error ?"ftp open:" cerror endif
  $oFTP.Send

  $oStream.Type = 1
  $oStream.Mode = 3
  $oStream.open
  $oStream.Write($oFTP.responseBody)
  if @error ?"ado write:" cerror endif
  $oStream.SaveToFile($sTargetFile, 2)
  if @error ?"ado save:" cerror endif
  $oStream.Close
EndFunction
_________________________
!

download KiXnet