|
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) SSH Commands to Sophos Router Device ConsoleDemonstrates how to establish an SSH session with a Sophos XG router and send commands in a device console session.
<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") success = ssh.Connect("172.16.16.16",22) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>" Response.End End If ' Authenticate using login/password: success = ssh.AuthenticatePw("myLogin","myPassword") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>" Response.End End If ' Start a shell session. ' (The QuickShell method was added in Chilkat v9.5.0.65) channelNum = ssh.QuickShell() If (channelNum < 0) Then Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>" Response.End End If ' The Sophos router will send this initial prompt: ' Main Menu ' ' 1. Network Configuration ' 2. System Configuration ' 3. Route Configuration ' 4. Device Console ' 5. Device Management ' 6. VPN Management ' 7. Shutdown/Reboot Device ' 0. Exit ' ' Select Menu Number [0-7]: success = ssh.ChannelReceiveUntilMatch(channelNum,"Select Menu Number","utf-8",1) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>" Response.End End If ' Show what we received so far: Response.Write "<pre>" & Server.HTMLEncode( ssh.GetReceivedText(channelNum,"utf-8")) & "</pre>" ' Send "4" <RETURN> to mimic typing in a shell session. success = ssh.ChannelSendString(channelNum,"4" & vbLf,"utf-8") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>" Response.End End If ' We should get a "console>" prompt. success = ssh.ChannelReceiveUntilMatch(channelNum,"console>","utf-8",1) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>" Response.End End If Response.Write "<pre>" & Server.HTMLEncode( ssh.GetReceivedText(channelNum,"utf-8")) & "</pre>" ' Send a command and get the output.. success = ssh.ChannelSendString(channelNum,"dnslookup host google.com" & vbLf,"utf-8") success = ssh.ChannelReceiveUntilMatch(channelNum,"console>","utf-8",1) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>" Response.End End If Response.Write "<pre>" & Server.HTMLEncode( ssh.GetReceivedText(channelNum,"utf-8")) & "</pre>" ' Send another command and get the output, and so on... success = ssh.ChannelSendString(channelNum,"dnslookup host microsoft.com" & vbLf,"utf-8") success = ssh.ChannelReceiveUntilMatch(channelNum,"console>","utf-8",1) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>" Response.End End If Response.Write "<pre>" & Server.HTMLEncode( ssh.GetReceivedText(channelNum,"utf-8")) & "</pre>" ssh.Disconnect %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.