Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#Mono C#.NET Core C#C# UWP/WinRTDataFlexDelphi ActiveXDelphi DLLVisual FoxProJavaLianjaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerBuilderPowerShellPureBasicCkPythonChilkat2-PythonRubySQL ServerSwift 2Swift 3/4TclUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET UWP/WinRTVBScriptXojo PluginNode.jsExcelGo

Visual FoxPro Examples

Web API Categories

ASN.1
Amazon Glacier
Amazon S3
Amazon S3 (new)
Amazon SES
Amazon SNS
Amazon SQS
Async
Azure Cloud Storage
Azure Service Bus
Base64
Bounced Email
Box
CAdES
CSR
CSV
Certificates
Compression
DKIM / DomainKey
DSA
Diffie-Hellman
Digital Signatures
Dropbox
Dynamics CRM
ECC
Email Object
Encryption
FTP
FileAccess
Firebase
GMail REST API
Geolocation
Google APIs
Google Calendar
Google Cloud Storage
Google Drive
Google Photos
Google Sheets
Google Tasks
Gzip
HTML-to-XML/Text

HTTP
HTTP Misc
IMAP
JSON
JSON Web Encryption (JWE)
JSON Web Signatures (JWS)
JSON Web Token (JWT)
Java KeyStore (JKS)
MHT / HTML Email
MIME
Microsoft Graph
NTLM
OAuth1
OAuth2
OneDrive
OpenSSL
Outlook
PEM
PFX/P12
POP3
PRNG
REST
REST Misc
RSA
SCP
SFTP
SMTP
SSH
SSH Key
SSH Tunnel
SharePoint
Socket/SSL/TLS
Spider
Stream
Tar Archive
Upload
WebSocket
XAdES
XML
XML Digital Signatures
XMP
Zip
curl

 

 

 

(Visual FoxPro) Using sudo in an SSH Shell Session

Demonstrates how to run a command as sudo in a shell session.

Note: This example requires Chilkat v9.5.0.65 or greater.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

LOCAL loSsh
LOCAL lnPort
LOCAL lnSuccess
LOCAL lnChannelNum
LOCAL loSbCommands

*  This example assumes Chilkat SSH/SFTP to have been previously unlocked.
*  See Unlock SSH for sample code.

loSsh = CreateObject('Chilkat_9_5_0.Ssh')

lnPort = 22
lnSuccess = loSsh.Connect("the-ssh-server.com",lnPort)
IF (lnSuccess <> 1) THEN
    ? loSsh.LastErrorText
    RELEASE loSsh
    CANCEL
ENDIF

*  Authenticate using login/password:
lnSuccess = loSsh.AuthenticatePw("theSshLogin","theSshPassword")
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

*  Construct a StringBuilder with our command ("ls") run with "sudo"
*  Note: The line-endings are potentially important.  Some SSH servers may
*  require either LF or CRLF line endings.  (Unix/Linux/OSX servers typically
*  use bare-LF line endings.  Windows servers likely use CRLF line endings.)

*  Using "sudo -S" causes the sudo prompt to be written to stderr,
*  and the password is read from stdin (i.e. from the echo command ouput).
*  The sudo commands -p option allows us to set the prompt, and we can set it to
*  the empty string, thus eliminating the prompt from the stderr completely.
*  This allows us to run the command as root (super-user) with no prompt.
loSbCommands = CreateObject('Chilkat_9_5_0.StringBuilder')
loSbCommands.Append('echo "theSshPassword" | sudo -S -p "" ls' + CHR(10))

*  Add another command to echo a marker string that
*  we'll use in ChannelReceiveUntilMatch below.
*  The use of single quotes around 'IS' is a trick so that the output
*  of the command is "THIS IS THE END OF THE SCRIPT", but the terminal echo
*  includes the single quotes.  This allows us to read until we see the actual
*  output of the last command.
loSbCommands.Append("echo THIS 'IS' THE END OF THE SCRIPT" + CHR(10))

*  Send the commands..
lnSuccess = loSsh.ChannelSendString(lnChannelNum,loSbCommands.GetAsString(),"ansi")
IF (lnSuccess <> 1) THEN
    ? loSsh.LastErrorText
    RELEASE loSsh
    RELEASE loSbCommands
    CANCEL
ENDIF

*  Send an EOF to indicate no more commands will be sent.
*  For brevity, we're not checking the return values of each method call.
*  Your code should check the success/failure of each call.
lnSuccess = loSsh.ChannelSendEof(lnChannelNum)

*  Receive output up to our marker.
lnSuccess = loSsh.ChannelReceiveUntilMatch(lnChannelNum,"THIS IS THE END OF THE SCRIPT","ansi",1)

*  Close the channel.
*  It is important to close the channel only after receiving the desired output.
lnSuccess = loSsh.ChannelSendClose(lnChannelNum)

*  Get any remaining output..
lnSuccess = loSsh.ChannelReceiveToClose(lnChannelNum)

*  Get the complete output for all the commands in the session.
? "--- output ----"
? loSsh.GetReceivedText(lnChannelNum,"ansi")

RELEASE loSsh
RELEASE loSbCommands


 

© 2000-2019 Chilkat Software, Inc. All Rights Reserved.