CREATE PROCEDURE ChilkatSample
AS
BEGIN
DECLARE @hr int
DECLARE @sTmp0 nvarchar(4000)
-- Important: It is helpful to send the contents of the
-- ssh.LastErrorText property when requesting support.
-- This sp_OACreate statement uses the new single-DLL ActiveX for v9.5.0
DECLARE @ssh int
EXEC @hr = sp_OACreate 'Chilkat_9_5_0.Ssh', @ssh OUT
IF @hr <> 0
BEGIN
PRINT 'Failed to create ActiveX component'
RETURN
END
-- Any string automatically begins a fully-functional 30-day trial.
DECLARE @success int
EXEC sp_OAMethod @ssh, 'UnlockComponent', @success OUT, '30-day trial'
IF @success <> 1
BEGIN
EXEC sp_OAGetProperty @ssh, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @ssh
RETURN
END
-- Connect to an SSH server:
DECLARE @hostname nvarchar(4000)
DECLARE @port int
-- Hostname may be an IP address or hostname:
SELECT @hostname = 'www.some-ssh-server.com'
SELECT @port = 22
EXEC sp_OAMethod @ssh, 'Connect', @success OUT, @hostname, @port
IF @success <> 1
BEGIN
EXEC sp_OAGetProperty @ssh, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @ssh
RETURN
END
-- Wait a max of 5 seconds when reading responses..
EXEC sp_OASetProperty @ssh, 'IdleTimeoutMs', 5000
-- Authenticate using login/password:
EXEC sp_OAMethod @ssh, 'AuthenticatePw', @success OUT, 'myLogin', 'myPassword'
IF @success <> 1
BEGIN
EXEC sp_OAGetProperty @ssh, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @ssh
RETURN
END
-- Open a session channel. (It is possible to have multiple
-- session channels open simultaneously.)
DECLARE @channelNum int
EXEC sp_OAMethod @ssh, 'OpenSessionChannel', @channelNum OUT
IF @channelNum < 0
BEGIN
EXEC sp_OAGetProperty @ssh, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @ssh
RETURN
END
-- Some SSH servers require a pseudo-terminal
-- If so, include the call to SendReqPty. If not, then
-- comment out the call to SendReqPty.
-- Note: The 2nd argument of SendReqPty is the terminal type,
-- which should be something like "xterm", "vt100", "dumb", etc.
-- A "dumb" terminal is one that cannot process escape sequences.
-- Smart terminals, such as "xterm", "vt100", etc. process
-- escape sequences. If you select a type of smart terminal,
-- your application will receive these escape sequences
-- included in the command's output. Use "dumb" if you do not
-- want to receive escape sequences. (Assuming your SSH
-- server recognizes "dumb" as a standard dumb terminal.)
DECLARE @termType nvarchar(4000)
SELECT @termType = 'dumb'
DECLARE @widthInChars int
SELECT @widthInChars = 120
DECLARE @heightInChars int
SELECT @heightInChars = 40
-- Use 0 for pixWidth and pixHeight when the dimensions
-- are set in number-of-chars.
DECLARE @pixWidth int
SELECT @pixWidth = 0
DECLARE @pixHeight int
SELECT @pixHeight = 0
EXEC sp_OAMethod @ssh, 'SendReqPty', @success OUT, @channelNum, @termType, @widthInChars, @heightInChars, @pixWidth, @pixHeight
IF @success <> 1
BEGIN
EXEC sp_OAGetProperty @ssh, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @ssh
RETURN
END
-- Start a shell on the channel:
EXEC sp_OAMethod @ssh, 'SendReqShell', @success OUT, @channelNum
IF @success <> 1
BEGIN
EXEC sp_OAGetProperty @ssh, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @ssh
RETURN
END
-- Start a command in the remote shell. This example
-- will send a "ls" command to retrieve the directory listing.
EXEC sp_OAMethod @ssh, 'ChannelSendString', @success OUT, @channelNum, 'ls' +CHAR(13)+CHAR(10), 'ansi'
IF @success <> 1
BEGIN
EXEC sp_OAGetProperty @ssh, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @ssh
RETURN
END
-- Send an EOF. This tells the server that no more data will
-- be sent on this channel. The channel remains open, and
-- the SSH client may still receive output on this channel.
EXEC sp_OAMethod @ssh, 'ChannelSendEof', @success OUT, @channelNum
IF @success <> 1
BEGIN
EXEC sp_OAGetProperty @ssh, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @ssh
RETURN
END
-- 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.
DECLARE @n int
DECLARE @pollTimeoutMs int
SELECT @pollTimeoutMs = 2000
EXEC sp_OAMethod @ssh, 'ChannelReadAndPoll', @n OUT, @channelNum, @pollTimeoutMs
IF @n < 0
BEGIN
EXEC sp_OAGetProperty @ssh, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @ssh
RETURN
END
-- Close the channel:
EXEC sp_OAMethod @ssh, 'ChannelSendClose', @success OUT, @channelNum
IF @success <> 1
BEGIN
EXEC sp_OAGetProperty @ssh, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @ssh
RETURN
END
-- 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.
EXEC sp_OAMethod @ssh, 'ChannelReceiveToClose', @success OUT, @channelNum
IF @success <> 1
BEGIN
EXEC sp_OAGetProperty @ssh, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @ssh
RETURN
END
-- Let's pickup the accumulated output of the command:
DECLARE @cmdOutput nvarchar(4000)
EXEC sp_OAMethod @ssh, 'GetReceivedText', @cmdOutput OUT, @channelNum, 'ansi'
IF @cmdOutput Is NULL
BEGIN
EXEC sp_OAGetProperty @ssh, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @ssh
RETURN
END
-- Display the remote shell's command output:
PRINT @cmdOutput
-- Disconnect
EXEC sp_OAMethod @ssh, 'Disconnect', NULL
EXEC @hr = sp_OADestroy @ssh
END
GO