VBScript

Send an SSH IGNORE Message

Demonstrates the Chilkat Ssh.SendIgnore method, which sends an SSH IGNORE message. It takes no arguments. The server does not reply, but a successful send helps confirm the connection is still writable. No channel is required.

Background: The SSH IGNORE message is discarded by the peer by design; its usefulness is as a lightweight keep-alive or liveness probe. Because it exercises the actual write path, a successful SendIgnore is stronger evidence than CheckConnection that the link is still usable, without side effects on any channel.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

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

success = 0

'  Demonstrates the Ssh.SendIgnore method, which sends an SSH IGNORE message.  It takes no
'  arguments.  The server does not reply, but a successful send helps confirm the connection is
'  still writable.  No channel is required.

set ssh = CreateObject("Chilkat.Ssh")

'  Connect to the SSH server.  Port 22 is the usual SSH port.
sshPort = 22
success = ssh.Connect("ssh.example.com",sshPort)
If (success = 0) Then
    outFile.WriteLine(ssh.LastErrorText)
    WScript.Quit
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.
password = "mySshPassword"

success = ssh.AuthenticatePw("mySshLogin",password)
If (success = 0) Then
    outFile.WriteLine(ssh.LastErrorText)
    WScript.Quit
End If

'  Send an IGNORE message to verify the connection is still writable.
success = ssh.SendIgnore()
If (success = 0) Then
    outFile.WriteLine(ssh.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("IGNORE message sent.")

ssh.Disconnect 

outFile.Close