Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(VB.NET UWP/WinRT) SSH Exec (Execute Command Line)Shows how to execute a command on an SSH server and retrieve the command output.
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim ssh As New Chilkat.Ssh ' Connect to an SSH server: Dim hostname As String Dim port As Integer ' Hostname may be an IP address or hostname: hostname = "192.168.1.108" port = 22 Dim success As Boolean = Await ssh.ConnectAsync(hostname,port) If (success <> True) Then Debug.WriteLine(ssh.LastErrorText) Exit Sub End If ' Wait a max of 5 seconds when reading responses.. ssh.IdleTimeoutMs = 5000 ' Authenticate using login/password: success = Await ssh.AuthenticatePwAsync("myLogin","myPassword") If (success <> True) Then Debug.WriteLine(ssh.LastErrorText) Exit Sub End If ' Open a session channel. (It is possible to have multiple ' session channels open simultaneously.) Dim channelNum As Integer channelNum = Await ssh.OpenSessionChannelAsync() If (channelNum < 0) Then Debug.WriteLine(ssh.LastErrorText) Exit Sub End If ' The SendReqExec method starts a command on the remote ' server. The syntax of the command string depends on the ' default shell used on the remote server to run the command. ' On Windows systems it is CMD.EXE. On UNIX/Linux ' systems the user's default shell is typically defined in /etc/password. ' Here are some examples of command lines for <b>Windows SSH servers</b>: ' Get a directory listing: Dim cmd1 As String = "dir" ' Do a nameserver lookup: Dim cmd2 As String = "nslookup chilkatsoft.com" ' List a specific directory. Given that the shell is CMD.EXE, backslashes must ' be used: Dim cmd3 As String = "dir \temp" ' Execute a sequence of commands. The syntax for CMD.EXE may be found ' here: http://technet.microsoft.com/en-us/library/bb490880.aspx. Notice how the commands ' are separated by "&&" and the entire command must be enclosed in quotes: Dim cmd4 As String = """cd \temp&&dir""" ' Here are two examples of command lines for <b>Linux/UNIX SSH servers</b>: ' Get a directory listing: Dim cmd5 As String = "ls -l /tmp" ' Run a series of commands (syntax may depend on your default shell): Dim cmd6 As String = "cd /etc; ls -la" ' Request a directory listing on the remote server: ' If your server is Windows, change the string from "ls" to "dir" success = Await ssh.SendReqExecAsync(channelNum,"ls") If (success <> True) Then Debug.WriteLine(ssh.LastErrorText) Exit Sub End If ' Call ChannelReceiveToClose to read ' output until the server's corresponding "channel close" is received. success = Await ssh.ChannelReceiveToCloseAsync(channelNum) If (success <> True) Then Debug.WriteLine(ssh.LastErrorText) Exit Sub End If ' Let's pickup the accumulated output of the command: Dim cmdOutput As String = ssh.GetReceivedText(channelNum,"ansi") If (ssh.LastMethodSuccess <> True) Then Debug.WriteLine(ssh.LastErrorText) Exit Sub End If ' Display the remote shell's command output: Debug.WriteLine(cmdOutput) ' Disconnect ssh.Disconnect() |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.