(VBScript) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Ssh")
set ssh = CreateObject("Chilkat.Ssh")

' To get the authentication methods offered by an SSH server, we first connect.
success = ssh.Connect("example.com",22)
If (success <> 1) Then
    outFile.WriteLine(ssh.LastErrorText)
    WScript.Quit
End If

' Next, we call GetAuthMethods to receive a comma separated list of authentication methods
authMethods = ssh.GetAuthMethods()
If (ssh.LastMethodSuccess <> 1) Then
    outFile.WriteLine(ssh.LastErrorText)
    WScript.Quit
End If

' For example: publickey,password,keyboard-interactive
outFile.WriteLine("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..
success = ssh.Connect("example.com",22)
If (success <> 1) Then
    outFile.WriteLine(ssh.LastErrorText)
    WScript.Quit
End If

success = ssh.AuthenticatePw("myLogin","myPassword")
If (success <> 1) Then
    outFile.WriteLine(ssh.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("SSH Authentication successful.")

' ...

ssh.Disconnect 

outFile.Close