Visual Basic 6.0

SSH Tunnel Per-Client Logging and Client Identifier

Demonstrates the ClientLogDir and ClientIdentifier properties. When ClientLogDir is set, a separate log file is created for each tunnel client; ClientIdentifier is the SSH client-identification string sent during the handshake.

Note: The log paths are relative to the application's current working directory. Absolute paths may also be used.

Background: When many clients share one tunnel, a single combined log is hard to follow, so ClientLogDir gives each connection its own file — the fastest way to diagnose one misbehaving client. ClientIdentifier sets the version string the server sees; overriding the default is occasionally needed for compatibility with servers that key behavior off the client identification, or simply to label your application in server logs.

Chilkat Visual Basic 6.0 Downloads

Download Chilkat for Visual Basic 6.0

Visual Basic 6.0

Dim success As Long
success = 0

'  Demonstrates the SshTunnel per-client logging properties ClientLogDir and ClientIdentifier.

Dim tunnel As New ChilkatSshTunnel

'  When ClientLogDir is set, a separate log file is created for each tunnel client in this
'  directory, which is useful for troubleshooting individual connections.
tunnel.ClientLogDir = "qa_output/client_logs"

'  The SSH client-identification string sent to the SSH server during the handshake.
tunnel.ClientIdentifier = "SSH-2.0-MyTunnelApp_1.0"

tunnel.DestHostname = "db.internal.example.com"
tunnel.DestPort = 5432

Dim sshPort As Long
sshPort = 22
success = tunnel.Connect("ssh.example.com",sshPort)
If (success = 0) Then
    Debug.Print tunnel.LastErrorText
    Exit Sub
End If

'  Normally you would not hard-code the password in source.  You should instead obtain it
'  from an interactive prompt, environment variable, or a secrets vault.
Dim password As String
password = "mySshPassword"

success = tunnel.AuthenticatePw("mySshLogin",password)
If (success = 0) Then
    Debug.Print tunnel.LastErrorText
    Exit Sub
End If

Dim listenPort As Long
listenPort = 1080
success = tunnel.BeginAccepting(listenPort)
If (success = 0) Then
    Debug.Print tunnel.LastErrorText
    Exit Sub
End If

Debug.Print "Tunnel running; each client is logged in " & tunnel.ClientLogDir

Dim waitForThreadExit As Long
waitForThreadExit = 1
success = tunnel.CloseTunnel(waitForThreadExit)
If (success = 0) Then
    Debug.Print tunnel.LastErrorText
    Exit Sub
End If