(Tcl) Get SSH Server Authentication Methods

Demonstrates how to get the authentication methods of an SSH server.

This example requires Chilkat v9.5.0.78 or greater.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set ssh [new_CkSsh]

# To get the authentication methods offered by an SSH server, we first connect.
set success [CkSsh_Connect $ssh "example.com" 22]
if {$success != 1} then {
    puts [CkSsh_lastErrorText $ssh]
    delete_CkSsh $ssh
    exit
}

# Next, we call GetAuthMethods to receive a comma separated list of authentication methods
set authMethods [CkSsh_getAuthMethods $ssh]
if {[CkSsh_get_LastMethodSuccess $ssh] != 1} then {
    puts [CkSsh_lastErrorText $ssh]
    delete_CkSsh $ssh
    exit
}

# For example: publickey,password,keyboard-interactive
puts "Authentication methods suported by this serve: $authMethods"

# IMPORTANT:
# Getting the authentication methods will intentionally disconnect from the server.
# We'll need to re-connect, etc. to continue..

# For example..
set success [CkSsh_Connect $ssh "example.com" 22]
if {$success != 1} then {
    puts [CkSsh_lastErrorText $ssh]
    delete_CkSsh $ssh
    exit
}

set success [CkSsh_AuthenticatePw $ssh "myLogin" "myPassword"]
if {$success != 1} then {
    puts [CkSsh_lastErrorText $ssh]
    delete_CkSsh $ssh
    exit
}

puts "SSH Authentication successful."

# ...

CkSsh_Disconnect $ssh

delete_CkSsh $ssh