<job>                                                               

<reference object="WinSCP.Session"/>

<script language="VBScript">

 

Option Explicit

 

' Setup session options

Dim sessionOptions

Set sessionOptions = WScript.CreateObject("WinSCP.SessionOptions")

With sessionOptions

    .Protocol = Protocol_Sftp

    .HostName = <hostname>

    .UserName = <username>

    .Password = <password>

    .SshHostKeyFingerprint = <SSH Key>

End With

 

Dim session

Set session = WScript.CreateObject("WinSCP.Session")

 

' Connect

session.Open sessionOptions

 

Dim directoryInfo

Set directoryInfo = session.ListDirectory("/home/martin/public_html")

 

Dim fileInfo

For Each fileInfo In directoryInfo.Files

    WScript.Echo fileInfo.Name & " with size " & fileInfo.Length & _

        ", permissions " & fileInfo.FilePermissions & _

        " and last modification at " & fileInfo.LastWriteTime

Next

 

' Disconnect, clean up

session.Dispose

 

</script>

</job>