(PowerBuilder) Upload to Tumbleweed SecureTransport FTPS Server

Demonstrates how to connect, authenticate, and upload file to a Tumbleweed Secure Transport SSL FTP Server. Instead of providing a login name and password, you pass the string "site-auth" for the username, and an empty string for the password. You must also provide a client-side digital certificate -- as the certificate's credentials and validity are used to authenticate.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Ftp
oleobject loo_CertStore
string ls_Password
integer li_Success
oleobject loo_Cert
string ls_LocalFilename
string ls_RemoteFilename

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

loo_Ftp = create oleobject
// Use "Chilkat_9_5_0.Ftp2" for versions of Chilkat < 10.0.0
li_rc = loo_Ftp.ConnectToNewObject("Chilkat.Ftp2")
if li_rc < 0 then
    destroy loo_Ftp
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// This code has been tested with the Tumbleweed server
// at sft.wellsfargo.com
loo_Ftp.Hostname = "sft.wellsfargo.com"

// Use these exact strings for the username and password:
loo_Ftp.Username = "site-auth"
loo_Ftp.Password = ""

// Establish an AUTH SSL secure channel after connecting.
// Your client-side certificate is used for authentication when
// the SSL channel is established.
loo_Ftp.AuthSsl = 1

// The Ssl property is for establishing an implicit SSL connection
// on port 990.  Do not set it.
loo_Ftp.Ssl = 0

// Load a certificate from a .pfx
// A PFX may contain several certs, including the certificates
// in a chain of authority.
loo_CertStore = create oleobject
// Use "Chilkat_9_5_0.CertStore" for versions of Chilkat < 10.0.0
li_rc = loo_CertStore.ConnectToNewObject("Chilkat.CertStore")

ls_Password = "***"
// Load the certs from a PFX into an in-memory certificate store:
li_Success = loo_CertStore.LoadPfxFile("my.pfx",ls_Password)
if li_Success <> 1 then
    Write-Debug loo_CertStore.LastErrorText
    destroy loo_Ftp
    destroy loo_CertStore
    return
end if

// Find the exact cert we'll use:
loo_Cert = loo_CertStore.FindCertBySubject("My Certificate 123 ABC")
if loo_CertStore.LastMethodSuccess = 0 then
    Write-Debug "Certificate not found!"
    destroy loo_Ftp
    destroy loo_CertStore
    return
end if

// Tell the Chilkat FTP2 component to use the client-side
// cert for the SSL connection:
li_Success = loo_Ftp.SetSslClientCert(loo_Cert)

// Connect and authenticate with the FTP server.
li_Success = loo_Ftp.Connect()
if li_Success <> 1 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    destroy loo_CertStore
    return
else
    // LastErrorText contains information even when
    // successful. This allows you to visually verify
    // that the secure connection actually occurred.
    Write-Debug loo_Ftp.LastErrorText
end if

Write-Debug "Secure FTP Channel Established!"

// Change to the remote directory where the file will be
// uploaded.  If your file is to be uploaded to the FTP user 
// account's home directory, this is not necessary.
li_Success = loo_Ftp.ChangeRemoteDir("someSubDir")
if li_Success <> 1 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    destroy loo_CertStore
    return
end if

// You may include an absolute or relative path with the 
// local filename.  If no path is included, the file should 
// be present in the current working directory of the calling
// process.
ls_LocalFilename = "someFile.dat"
ls_RemoteFilename = "someFile.dat"

// Upload the file.
li_Success = loo_Ftp.PutFile(ls_LocalFilename,ls_RemoteFilename)
if li_Success <> 1 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    destroy loo_CertStore
    return
end if

li_Success = loo_Ftp.Disconnect()


destroy loo_Ftp
destroy loo_CertStore