code:

---

FTPget("ftp://ftp.cpan.org/pub/CPAN/src/perl-5.8.0.tar.gz",@scriptdir+"\perl-5.8.0.tar.gz")
if @error "Error: " @error else "success" endif
get $

Function FTPget($sURL, $sTargetFile)
  Dim $oFTP, $oStream
  $oFTP = CreateObject("MSXML2.ServerXMLHTTP")
  if @error exit cerror endif
  $oStream = CreateObject("ADODB.Stream")
  if @error exit cerror endif

  $oFTP.Open("GET", $sURL, not 1)
  if @error exit cerror endif
  $oFTP.Send

  $oStream.Type = 1
  $oStream.Mode = 3
  $oStream.open
  $oStream.Write($oFTP.responseBody)
  if @error exit cerror endif
  $oStream.SaveToFile($sTargetFile, 2)
  if @error exit cerror endif
  $oStream.Close
EndFunction

function Cerror(optional $)
 $Cerror = @error
 $=0+$
 $Cerror=dectohex($Cerror)
 $Cerror=right($Cerror,4)
 $_nul=execute("$$Cerror=&$Cerror")
 if $ _translate($Cerror)
  $_nul=execute("$$Cerror='@serror'")
 endif
endfunction
function _translate($)
 exit $
endfunction

---

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

---

code:

---

 BREAK ON
 ; -- http://support.microsoft.com/default.aspx?scid=kb;EN-US;q298108
 ; -- http://support.microsoft.com/default.aspx?scid=kb;EN-US;q296713
 $user = "kdyer"
 $password = "password"
 $address = "ftp://ftpsite"
 $rdir = "/kdyer"
 $file = "C:\untitled1.jpg"
 $ftpobj = CreateObject("microsoft.xmlhttp")
 IF @error <> 0
       ?@error
       SLEEP 2
       EXIT 1
 ENDIF

 $ftpobj.open("PUT", $address, FALSE, $user,$password)

 IF $file <> ""
       ; -- check to insure that you have the right encoding
       ;application/x-www-form-urlencoded
       ;image/gif
       ;image/x-xbitmap
       ;image/jpeg
       ;image/pjpeg;
       ;application/vnd.ms-powerpoint;
       ;application/vnd.ms-excel
       ;application/msword
       ;*/*
       $ftpobj.setrequestheader = "Content-Type", "*/*"
       $ftpobj.send $file
 ENDIF
 $ftpobj = 0

---

code:

---

 BREAK ON
 ;;Dim $binaryContent
 ; -- http://support.microsoft.com/default.aspx?scid=kb;EN-US;q298108
 ; -- http://support.microsoft.com/default.aspx?scid=kb;EN-US;q296713
 ; -- http://support.microsoft.com/support/kb/articles/Q237/9/06.ASP
 ; -- http://www.bibit.com/asp_example_source_documentation.html
 $user = "uid"
 $password = "pass"
 $address = "ftp://site.com/kdyer"
 $rdir = "/kdyer"
 $file = "C:\untitled1.jpg"
 $ftpobj = CreateObject("microsoft.xmlhttp")
 IF @error <> 0
       ?@error
       SLEEP 2
       EXIT 1
 ENDIF

     ;;$ftpobj.open("POST", $address, FALSE, $user, $password)
 
    ; -- http://www.planet-source-code.com/xq/ASP/txtCodeId.5746/lngWId.1/qx/vb/scripts/ShowCode.htm
    $ftpobj.open("GET",$address,not 1)
    $ftpobj.send
    $strCookie = $ftpobj.getResponseHeader("set-cookie")
    $strCookie = Left($strCookie, InStr($strCookie, ";") - 1)
    ;better check the feedback
    $testresl = $ftpobj.responseText
    ?$testresl
    ;do the actual send
    $ftpobj.open("POST", $address+$rdir, not 1, $user, $password)
    $ftpobj.setRequestHeader("Cookie", $strCookie)
    ;we need to do it a second time due to K
    ;     B article Q234486.
    $ftpobj.setRequestHeader("Cookie", $strCookie)
    $ftpobj.setrequestheader("MIME-Version", "1.0")
    $ftpobj.setRequestHeader("Depth", "0")
    ; -- Think we need to do something like
    ; -- http://support.microsoft.com/default.aspx?scid=kb;en-us;Q298108
    ; -- Re. Lvarbin
    ;$ftpobj.send($file) ; -- If we comment out this line we can see the site
    $ftpobj.send $file
    $testres = $ftpobj.responseText ; -- this actually draws the FTP Site :)
    ?$testres
    
    ?"Press a key"
    get $
  

---

quote:

---

-2147352567 Binary err

---

code:

---

BREAK ON
 Dim $oStream
 ; -- http://support.microsoft.com/default.aspx?scid=kb;EN-US;q298108
 ; -- http://support.microsoft.com/default.aspx?scid=kb;EN-US;q296713
 ; -- http://support.microsoft.com/support/kb/articles/Q237/9/06.ASP
 ; -- http://www.bibit.com/asp_example_source_documentation.html
 $address = "site.com"
 $rdir = "/kdyer/kdyer"
 $user = "kdyer"
 $password = "pass"
 $file = "C:\cr.dbf"
 $ftpobj = CreateObject("microsoft.xmlhttp")
 $oStream = CreateObject("ADODB.Stream")
 ; -- Convert to binary
 $oStream.Type = 1  ; adTypeBinary
 ;;$oStream.Type = 2 ; adTypeText
 ;$bFileData = $oStream.LoadFromFile($file)
 $oStream.LoadFromFile($file)
 $oStream.open
 IF @error <> 0
       ?@error " Binary err"
       get $
       EXIT 1
 ENDIF

     ;;$ftpobj.open("POST", $address, FALSE, $user, $password)
 
    ; -- http://www.planet-source-code.com/xq/ASP/txtCodeId.5746/lngWId.1/qx/vb/scripts/ShowCode.htm
    $ftpobj.open("GET",$address,not 1)
    $ftpobj.send
    $strCookie = $ftpobj.getResponseHeader("set-cookie")
    $strCookie = Left($strCookie, InStr($strCookie, ";") - 1)
    ;better check the feedback
    $testresl = $ftpobj.responseText
    ?$testresl
    ;do the actual send
    $ftpobj.open("POST", $address+$rdir, not 1, $user, $password)
    $ftpobj.setRequestHeader("Cookie", $strCookie)
    ;we need to do it a second time due to K
    ;     B article Q234486.
    $ftpobj.setRequestHeader("Cookie", $strCookie)
    $ftpobj.setrequestheader("MIME-Version", "1.0")
    $ftpobj.setRequestHeader("Depth", "0")
    ; -- Think we need to do something like
    ; -- http://support.microsoft.com/default.aspx?scid=kb;en-us;Q298108
    ; -- Re. Lvarbin
    ;$ftpobj.send($file) ; -- If we comment out this line we can see the site
    $ftpobj.send($bFileData)
    $testres = $ftpobj.responseText ; -- this actually draws the FTP Site :)
    ?$testres
    
    ?"Press a key"
    get $

---

code:

---

;ref - http://cwashington.netreach.net/depo/view.asp?Index=622&ScriptType=vbscript
Function decimalToBinary($intDecimal)
    $strBinary = ""
    $intDecimal = cInt($intDecimal)
    While ($intDecimal > 1)
        $lngNumber1 = $intDecimal / 2
        $lngNumber2 = Fix($lngNumber1)
        If ($lngNumber1 > $lngNumber2)
            $strDigit = "1"
        Else
            $strDigit = "0"
        EndIf
        $strBinary = $strDigit + $strBinary
        $intDecimal = Fix($intDecimal / 2)
    Loop
    $strBinary = "1" & $strBinary
    While Len($strBinary) < 8
         $strBinary = "0" + $strBinary
    Loop
    $binString = $strBinary
EndFunction

---