;Function:	FTPget()
;
;Authors:	Lonkero
;		kdyer
;
;Version:	1.2 (2th of August 2007)
;
;Version History:
;		1.2 - current, added Force-parameter
;		1.1 (6th of December 2002)
;
;Action:	gets file from ftp or http server and saves it in specified file
;
;Syntax:	FTPget("URL", "TARGET", "USERNAME", "PASSWORD", FORCE)
;
;Parameters:
;		URL	- full url to the file to get
;		TARGET	- full path to file where to save
;		USERNAME- optional, specifies username to use in connection
;		PASSWORD- optional, specifies password to use in connection
;		FORCE	- optional, force udf to bypass cache
;
;Returns:
;		Nothing or errorcode on error.
;
;		on error errorcodes returned and set:
;			1 -failed to initialize http-object
;			2 -failed to initialize ADODB-object
;			3 -failed to open connection
;			4 -ADO write failed
;			5 -save to file failed
;
;Dependencies:
;		IE5 or higher
;
;Remarks:
;		if file exists, it will be overwritten.
;		not sure about the ado, dependency?
;
;Example:	
;		"Downloading TypelibViewer, Please standby..."
;		if FTPget("http://www.rwksystems.com/files/TypeLibViewer.exe","%temp%\typelibViewer.exe")
;			"error occured:" @error
;		else
;			"Download complete. file is saved in %temp% as typelibViewer.exe"
;		endif
;
;Source:
Function FTPget($sURL, $sTargetFile, optional $sUser, $sPass, $iForce)
  Dim $oFTP, $oStream,$dwSM,$,$sLoc
  $sLoc="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings"
  $sUser=""+$sUser
  if $iForce
    $dwSM = Readvalue($sLoc,"Syncmode5")
    $=writevalue($sLoc,"Syncmode5",3,"REG_DWORD")
  endif
  $oFTP = CreateObject("Microsoft.XMLHTTP")
  if @error
    $ftpget=1
    if $iForce
      $=writevalue($sLoc,"Syncmode5",$dwSM,"REG_DWORD")
    endif
    exit 1
  endif
  $oStream = CreateObject("ADODB.Stream")
  if @error
    $ftpget=2
    if $iForce
      $=writevalue($sLoc,"Syncmode5",$dwSM,"REG_DWORD")
    endif
    exit 2
  endif
  if $sUser
    $oFTP.Open("GET", $sURL, not 1, $sUser, $sPass)
  else
    $oFTP.Open("GET", $sURL, not 1)
  endif
  if @error
    $ftpget=3
    if $iForce
      $=writevalue($sLoc,"Syncmode5",$dwSM,"REG_DWORD")
    endif
    exit 3
  endif
  $oFTP.Send
  $oStream.Type = 1
  $oStream.Mode = 3
  $oStream.open
  $oStream.Write($oFTP.responseBody)
  if @error
    $ftpget=4
    if $iForce
      $=writevalue($sLoc,"Syncmode5",$dwSM,"REG_DWORD")
    endif
    exit 4
  endif
  $oStream.SaveToFile($sTargetFile, 2)
  if @error
    $ftpget=5
    if $iForce
      $=writevalue($sLoc,"Syncmode5",$dwSM,"REG_DWORD")
    endif
    exit 5
  endif
  $oFTP=0
  if $iForce
    $=writevalue($sLoc,"Syncmode5",$dwSM,"REG_DWORD")
  endif
  $oStream.Close
EndFunction

 
$LocationFile = 10.0.0.1 + Dir("/u/prod/version.*")
$CopyTo = $locatie + "\temp\" + @WKSTA
$gebruikersnaam = "user"
$wachtwoord = "123456"

CALL \\server\netlogon\ftpget.udf
FTPget("$LocationFile", "$CopyTo", "$gebruikersnaam", "$wachtwoord")

Break On
$LocationFile = 10.0.0.1 + Dir("/u/prod/version.*")
$LocationFile ?
Get $SO

10

FTPget("$LocationFile", "$CopyTo", "$gebruikersnaam", "$wachtwoord")

$LocationFile = 10.0.0.1 + Dir("/u/prod/version.*")
;to
$LocationFile = "10.0.0.1" + Dir("/u/prod/verson.*")

"/u/prod/verson.*"

"u:\prod\verson.*"

verson

verson.12345678

10.0.0.1verson.12345678

Break On
$LocationFile = Dir("u:\prod\verson.*")
Do
	$LocationFile ?
	$LocationFile = Dir()
Until @ERROR

Get $SO

 
$CopyTo = $locatie + "\temp\" + @WKSTA
$gebruikersnaam = "user"
$wachtwoord = "123456"

CALL \\server\netlogon\ftpget.udf
FTPget("10.0.0.1" + Dir("/u/prod/version.*"), "$CopyTo", "$gebruikersnaam", "$wachtwoord")

? "$CopyTo"

open ftp.microsoft.com
user anonymous pass anonymous
cd ResKit/win2000
mget jt.*
y
quit

ftp -n -s:C:\PathTo\ftpinput.txt

Break ON
$=SetOption("Explicit","ON")
 
Dim $sFile,$sFileList,$sURL
 
$sURL="ftp://ftp.microsoft.com/deskapps"
 
$sFileList=FTPDir($sURL)
If $sFileList
	"Entries in "+$sURL+":"+@CRLF
	For Each $sFile in Split($sFileList,@CRLF)
		$sFile+" is a "+IIf(Right($sFile,1)="/","DIRECTORY","FILE")+@CRLF
	Next
Else
	"There are no entries in "+$sURL+@CRLF
EndIf
 
Function FTPDir($sURL,Optional $sUser, $sPass, $iForce)
	Dim $oFTP,$,$iERROR,$sLine,$iParse,$sLoc,$dwSM
 
	$iERROR=0
	$iParse=0
	$sLoc="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings"
	$sUser=""+$sUser
	If $iForce
		$dwSM = Readvalue($sLoc,"Syncmode5")
		$=writevalue($sLoc,"Syncmode5",3,"REG_DWORD")
	EndIf
	$oFTP = CreateObject("Microsoft.XMLHTTP")
	If @error $ftpget=1 Else
		If $sUser $oFTP.Open("GET", $sURL, Not 1, $sUser, $sPass) Else $oFTP.Open("GET", $sURL, Not 1) EndIf
		If @error $ftpget=3 Else
			$oFTP.Send
			For Each $sLine in Split($oFTP.responseBody,@CRLF)
				Select
				Case InStr($sLine,"<PRE>") $iParse=1
				Case InStr($sLine,"</PRE>") $iParse=0
				Case $iParse
					$sLine=Split($sLine+'<A HREF="','<A HREF="')[1]
					$sLine=Split($sLine,'"')[0]
					If $sLine $FTPDir=$FTPDir+@CRLF+$sLine EndIf
				EndSelect
			Next
		EndIf
	EndIf
	$oFTP=0
	If $iForce $=WriteValue($sLoc,"Syncmode5",$dwSM,"REG_DWORD") EndIf
	$FTPDir=SubStr($FTPDir,3)
	Exit $iERROR
EndFunction
;
; vim: ts=4 sw=4 ai filetype=kix