|
Chilkat •
HOME •
Android™ •
ASP •
Visual Basic •
VB.NET •
C# •
iOS (IPhone) •
Objective-C •
C++ •
C •
MFC •
Delphi •
FoxPro •
Java •
Perl •
PHP Extension •
PHP ActiveX •
Python •
PowerShell •
Ruby •
SQL Server •
VBScript
|
|
Multiple SendReqExec on Same ConnectionShows how to execute a series of commands on an SSH server and retrieve each command's output (using SendReqExec). Each call to SendReqExec requires its own logical session channel. This is not a separate TCP/IP connection -- it's simply a new session channel on the existing connection. The sequence of Chilkat SSH calls would look like this: Connect AuthenticatePw (or AuthenticatePk) OpenSessionChannel SendReqExec <retrieve command output...> SendChannelClose ChannelReceiveToClose (to make sure all remaining output is received) OpenSessionChannel SendReqExec <retrieve command output...> SendChannelClose ChannelReceiveToClose (to make sure all remaining output is received) ... OpenSessionChannel SendReqExec <retrieve command output...> SendChannelClose ChannelReceiveToClose (to make sure all remaining output is received) Disconnect
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' Important: It is helpful to send the contents of the ' ssh.LastErrorText property when requesting support. set ssh = Server.CreateObject("Chilkat.Ssh") ' Any string automatically begins a fully-functional 30-day trial. success = ssh.UnlockComponent("Anything for 30-day trial") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode(ssh.LastErrorText) & "</pre>" End If ' Connect to an SSH server: ' Hostname may be an IP address or hostname: hostname = "192.168.1.108" port = 22 success = ssh.Connect(hostname,port) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode(ssh.LastErrorText) & "</pre>" End If ' Wait a max of 5 seconds when reading responses.. ssh.IdleTimeoutMs = 5000 ' Authenticate using login/password: success = ssh.AuthenticatePw("myLogin","myPassword") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode(ssh.LastErrorText) & "</pre>" End If ' Open a session channel. (It is possible to have multiple ' session channels open simultaneously.) channelNum = ssh.OpenSessionChannel() If (channelNum < 0) Then Response.Write "<pre>" & Server.HTMLEncode(ssh.LastErrorText) & "</pre>" End If ' Request a directory listing on the remote server: ' If your server is Linux/UNIX, change the string from "dir" to "ls" ' Note: Some SSH servers require a CRLF instead of a bare-LF cmd = "ls -al" & lf success = ssh.SendReqExec(channelNum,cmd) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode(ssh.LastErrorText) & "</pre>" End If ' Read whatever output may already be available on the ' SSH connection. ChannelReadAndPoll returns the number of bytes ' that are available in the channel's internal buffer that ' are ready to be "picked up" by calling GetReceivedText ' or GetReceivedData. ' A return value of -1 indicates failure. ' A return value of -2 indicates a failure via timeout. ' The ChannelReadAndPoll method waits ' for data to arrive on the connection usingi the IdleTimeoutMs ' property setting. Once the first data arrives, it continues ' reading but instead uses the pollTimeoutMs passed in the 2nd argument: ' A return value of -2 indicates a timeout where no data is received. pollTimeoutMs = 2000 n = ssh.ChannelReadAndPoll(channelNum,pollTimeoutMs) If (n < 0) Then Response.Write "<pre>" & Server.HTMLEncode(ssh.LastErrorText) & "</pre>" End If ' Close the channel: success = ssh.ChannelSendClose(channelNum) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode(ssh.LastErrorText) & "</pre>" End If ' Perhaps we did not receive all of the commands output. ' To make sure, call ChannelReceiveToClose to accumulate any remaining ' output until the server's corresponding "channel close" is received. success = ssh.ChannelReceiveToClose(channelNum) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode(ssh.LastErrorText) & "</pre>" End If ' Let's pickup the accumulated output of the command: cmdOutput = ssh.GetReceivedText(channelNum,"ansi") If (cmdOutput = vbNullString ) Then Response.Write "<pre>" & Server.HTMLEncode(ssh.LastErrorText) & "</pre>" End If ' Display the remote shell's command output: Response.Write "<pre>" & Server.HTMLEncode( cmdOutput) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "----") & "</pre>" ' ----------------------------------------------------------------- ' Now for the 2nd SendReqExe (on the same connection, ' but on a separate logical channel). ' ----------------------------------------------------------------- channelNum = ssh.OpenSessionChannel() If (channelNum < 0) Then Response.Write "<pre>" & Server.HTMLEncode(ssh.LastErrorText) & "</pre>" End If cmd = "nslookup chilkatsoft.com" & lf success = ssh.SendReqExec(channelNum,cmd) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode(ssh.LastErrorText) & "</pre>" End If pollTimeoutMs = 2000 n = ssh.ChannelReadAndPoll(channelNum,pollTimeoutMs) If (n < 0) Then Response.Write "<pre>" & Server.HTMLEncode(ssh.LastErrorText) & "</pre>" End If success = ssh.ChannelSendClose(channelNum) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode(ssh.LastErrorText) & "</pre>" End If success = ssh.ChannelReceiveToClose(channelNum) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode(ssh.LastErrorText) & "</pre>" End If cmdOutput = ssh.GetReceivedText(channelNum,"ansi") If (cmdOutput = vbNullString ) Then Response.Write "<pre>" & Server.HTMLEncode(ssh.LastErrorText) & "</pre>" End If Response.Write "<pre>" & Server.HTMLEncode( cmdOutput) & "</pre>" ' Disconnect ssh.Disconnect %> </body> </html> |
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.
