SocketTools ActiveX Edition​

FtpClient1.HostName = editHostName.Text
FtpClient1.RemotePort = ftpPortSSH
FtpClient1.UserName = editUserName.Text
FtpClient1.Password = editPassword.Text

' Connect to the server and authenticate the user
nError = FtpClient1.Connect()
If nError > 0 Then
    MsgBox FtpClient1.LastErrorString, vbExclamation
    Exit Sub
End If

' Upload the local file to the server
nError = FtpClient1.PutFile(editLocalFile.Text, editRemoteFile.Text)
If nError > 0 Then
    FtpClient1.Disconnect
    MsgBox FtpClient1.LastErrorString, vbExclamation
    Exit Sub
End If

' Disconnect from the server after the transfer completes
FtpClient1.Disconnect
MsgBox ("The file was uploaded successfully")

' Create an instance of the ActiveX control
Dim oFtpClient
Set oFtpClient = WScript.CreateObject("SocketTools.FtpClient.11")

' Initialize the control to prepare it for use
nError = oFtpClient.Initialize()
If nError > 0 Then
    WScript.Echo "Unable to initialize SocketTools control"
    WScript.Quit(1)
End If

' Connect to the server and authenticate the user
nError = oFtpClient.Connect(sHostName, 22, sUserName, sPassword)
If nError > 0 Then
    WScript.StdErr.WriteLine oFtpClient.LastErrorString
    WScript.Quit(1)
End If

' Upload the local file to the server
nError = oFtpClient.PutFile(sLocalFile, sRemoteFile)
If nError = 0 Then
    WScript.StdOut.WriteLine "Uploaded " & sLocalFile
Else
    WScript.StdErr.WriteLine oFtpClient.LastErrorString
    WScript.Quit(1)
End If

' Disconnect from the server after the transfer completes
oFtpClient.Disconnect
WScript.Quit(0)

// Declare the variant parameters passed to the control
_variant_t varHostName = m_strHostName;
_variant_t varHostPort = m_nHostPort;
_variant_t varUserName = m_strUserName;
_variant_t varPassword = m_strPassword;
_variant_t varError;

// Connect to the server and authenticate the user
varError = m_pFtpClient->Connect(varHostName, varHostPort,
varUserName, varPassword);
if ((int)varError > 0)
{
    CString strError = m_pFtpClient->GetLastErrorString();
    AfxMessageBox(strError, MB_ICONEXCLAMATION);
    return;
}

_variant_t varLocalFile = m_strLocalFile;
_variant_t varRemoteFile = m_strRemoteFile;

// Upload the local file to the server
varError = m_pFtpClient->PutFile(varLocalFile, varRemoteFile);

if ((int)varError > 0)
{
    CString strError = m_pFtpClient->GetLastErrorString();
    m_pFtpClient->Disconnect();
    AfxMessageBox(strError, MB_ICONEXCLAMATION);
    return;
}

// Disconnect from the server after the transfer completes
m_pFtpClient->Disconnect();

AfxMessageBox(_T("The file was uploaded successfully"), MB_ICONINFORMATION);