(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.

Note: This example requires Chilkat v10.1.2 or greater.

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_JsonCN
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 desired certificate.
loo_JsonCN = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_JsonCN.ConnectToNewObject("Chilkat.JsonObject")

loo_JsonCN.UpdateString("CN","cert common name")

loo_Cert = create oleobject
// Use "Chilkat_9_5_0.Cert" for versions of Chilkat < 10.0.0
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")

li_Success = loo_CertStore.FindCert(loo_JsonCN,loo_Cert)
if li_Success = 0 then
    Write-Debug "Certificate not found!"
    destroy loo_Ftp
    destroy loo_CertStore
    destroy loo_JsonCN
    destroy loo_Cert
    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
    destroy loo_JsonCN
    destroy loo_Cert
    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
    destroy loo_JsonCN
    destroy loo_Cert
    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
    destroy loo_JsonCN
    destroy loo_Cert
    return
end if

li_Success = loo_Ftp.Disconnect()


destroy loo_Ftp
destroy loo_CertStore
destroy loo_JsonCN
destroy loo_Cert