|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Classic ASP) 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 channel. This is not a separate SSH connection -- it's simply a new session channel on the existing SSH connection.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This example assumes 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 = Server.CreateObject("Chilkat.Ssh") ' Hostname may be an IP address or domain: hostname = "172.16.16.46" port = 22 success = ssh.Connect(hostname,port) If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>" Response.End End If ' If receiving output from a command stalls for more than 5 seconds, then stop waiting. ssh.IdleTimeoutMs = 5000 ' Authenticate using login/password: success = ssh.AuthenticatePw("myLogin","myPassword") If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>" Response.End 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>" Response.End 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" & vbLf success = ssh.SendReqExec(channelNum,cmd) If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>" Response.End 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>" Response.End End If ' Close the channel: success = ssh.ChannelSendClose(channelNum) If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>" Response.End 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 = 0) Then Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>" Response.End End If ' Get the accumulated output of the command: cmdOutput = ssh.GetReceivedText(channelNum,"ansi") If (ssh.LastMethodSuccess = 0) Then Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>" Response.End 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>" Response.End End If cmd = "nslookup chilkatsoft.com" & vbLf success = ssh.SendReqExec(channelNum,cmd) If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>" Response.End End If pollTimeoutMs = 2000 n = ssh.ChannelReadAndPoll(channelNum,pollTimeoutMs) If (n < 0) Then Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>" Response.End End If success = ssh.ChannelSendClose(channelNum) If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>" Response.End End If success = ssh.ChannelReceiveToClose(channelNum) If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>" Response.End End If cmdOutput = ssh.GetReceivedText(channelNum,"ansi") If (ssh.LastMethodSuccess = 0) Then Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>" Response.End End If Response.Write "<pre>" & Server.HTMLEncode( cmdOutput) & "</pre>" %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.