|
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
(Visual FoxPro) 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.
LOCAL loSsh LOCAL lnSuccess LOCAL lnChannelNum * 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') loSsh = CreateObject('Chilkat.Ssh') lnSuccess = loSsh.Connect("172.16.16.16",22) IF (lnSuccess <> 1) THEN ? loSsh.LastErrorText RELEASE loSsh CANCEL ENDIF * Authenticate using login/password: lnSuccess = loSsh.AuthenticatePw("myLogin","myPassword") IF (lnSuccess <> 1) THEN ? loSsh.LastErrorText RELEASE loSsh CANCEL ENDIF * Start a shell session. * (The QuickShell method was added in Chilkat v9.5.0.65) lnChannelNum = loSsh.QuickShell() IF (lnChannelNum < 0) THEN ? loSsh.LastErrorText RELEASE loSsh CANCEL ENDIF * 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]: lnSuccess = loSsh.ChannelReceiveUntilMatch(lnChannelNum,"Select Menu Number","utf-8",1) IF (lnSuccess <> 1) THEN ? loSsh.LastErrorText RELEASE loSsh CANCEL ENDIF * Show what we received so far: ? loSsh.GetReceivedText(lnChannelNum,"utf-8") * Send "4" <RETURN> to mimic typing in a shell session. lnSuccess = loSsh.ChannelSendString(lnChannelNum,"4" + CHR(10),"utf-8") IF (lnSuccess <> 1) THEN ? loSsh.LastErrorText RELEASE loSsh CANCEL ENDIF * We should get a "console>" prompt. lnSuccess = loSsh.ChannelReceiveUntilMatch(lnChannelNum,"console>","utf-8",1) IF (lnSuccess <> 1) THEN ? loSsh.LastErrorText RELEASE loSsh CANCEL ENDIF ? loSsh.GetReceivedText(lnChannelNum,"utf-8") * Send a command and get the output.. lnSuccess = loSsh.ChannelSendString(lnChannelNum,"dnslookup host google.com" + CHR(10),"utf-8") lnSuccess = loSsh.ChannelReceiveUntilMatch(lnChannelNum,"console>","utf-8",1) IF (lnSuccess <> 1) THEN ? loSsh.LastErrorText RELEASE loSsh CANCEL ENDIF ? loSsh.GetReceivedText(lnChannelNum,"utf-8") * Send another command and get the output, and so on... lnSuccess = loSsh.ChannelSendString(lnChannelNum,"dnslookup host microsoft.com" + CHR(10),"utf-8") lnSuccess = loSsh.ChannelReceiveUntilMatch(lnChannelNum,"console>","utf-8",1) IF (lnSuccess <> 1) THEN ? loSsh.LastErrorText RELEASE loSsh CANCEL ENDIF ? loSsh.GetReceivedText(lnChannelNum,"utf-8") loSsh.Disconnect() RELEASE loSsh |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.