<%@Language=VBScript%>
<%Response.Buffer = True%>
<!--#include file="winscpnet.dll"-->
<%
 
 object="WinSCP.Session"
' Setup session options
Dim sessionOptions
Set sessionOptions = WScript.CreateObject("WinSCP.SessionOptions")
With sessionOptions
    .Protocol = Protocol_Sftp
    .HostName = ""
    .UserName = ""
    .Password = ""
 
End With
 
Dim session 
Set session = WScript.CreateObject("WinSCP.Session")
 
' Connect
session.Open sessionOptions
 
' Download files
Dim transferOptions
Set transferOptions = WScript.CreateObject("WinSCP.TransferOptions")
transferOptions.TransferMode = TransferMode_Binary
 
Dim transferResult
Set transferResult = session.GetFiles("", "", false, transferOptions)
 
' Throw on any error
transferResult.Check
 
' Print results
Dim transfer
For Each transfer In transferResult.Transfers
    WScript.Echo "Download of " & transfer.FileName & " succeeded"
Next
 
' Disconnect, clean up
session.Dispose
%>