VBScript

Wait for a Message on Any SSH Channel

Demonstrates the Chilkat Ssh.WaitForChannelMessage method, which waits for the next SSH channel message on any channel. The only argument is the poll timeout: 0 for a nonblocking check, a positive value to wait that long, or a negative value to wait with no method-level timeout. It returns the channel number the message belongs to, -1 if nothing arrived before the timeout, or -2 on another error such as a lost connection.

Background: When several channels are active at once, waiting on one specific channel would block while others sit ready. This method is the multiplexed alternative — it returns as soon as any channel has activity and tells you which one, so a single loop can service them all. The explicit timeout argument governs the wait; shorter ReadTimeoutMs values do not cut it short.

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.WaitForChannelMessage method, which waits for the next SSH channel
'  message on ANY channel.  The only argument is the poll timeout in milliseconds: 0 for a
'  nonblocking check, a positive value to wait that long, or a negative value to wait with no
'  method-level timeout.

set ssh = CreateObject("Chilkat.Ssh")

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

channelNum = ssh.OpenSessionChannel()
If (channelNum < 0) Then
    outFile.WriteLine(ssh.LastErrorText)
    WScript.Quit
End If

success = ssh.SendReqExec(channelNum,"ls -l /tmp")
If (success = 0) Then
    outFile.WriteLine(ssh.LastErrorText)
    WScript.Quit
End If

'  Wait up to 5 seconds for the next channel message.  The return value is the channel number
'  the message belongs to, -1 if nothing arrived before the timeout, or -2 on another error.
pollTimeoutMs = 5000
result = ssh.WaitForChannelMessage(pollTimeoutMs)

If (result = -2) Then
    outFile.WriteLine(ssh.LastErrorText)
    WScript.Quit
End If

If (result = -1) Then
    outFile.WriteLine("No channel message arrived before the timeout.")
End If

If (result >= 0) Then
    outFile.WriteLine("Processed a message for channel " & result)
End If

ssh.Disconnect 

outFile.Close