Library references

• System
• System.Data
• Microsoft.SqlServer.ScriptTask
• Microsoft.SqlServer.ManagedDTS
• CozyRoc.SSISPlus
• Tamir.SharpSSH

ScriptMain

Option Explicit On ' Microsoft SQL Server Integration Services Script Task ' ' Copyright (c) 2007 CozyRoc LLC ' ' Permission is hereby granted, free of charge, to any person ' obtaining a copy of this software and associated documentation ' files (the "Software"), to deal in the Software without ' restriction, including without limitation the rights to use, ' copy, modify, merge, publish, distribute, sublicense, and/or sell ' copies of the Software, and to permit persons to whom the ' Software is furnished to do so, subject to the following ' conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES ' OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT ' HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, ' WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING ' FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR ' OTHER DEALINGS IN THE SOFTWARE. Imports System Imports System.ComponentModel Imports Microsoft.SqlServer.Dts.Runtime Imports CozyRoc.SqlServer.SSIS Imports CozyRoc.SqlServer.SSIS.Attributes Imports Tamir.SharpSsh.jsch <ValidateProperties("Validate")> _ Public Class ScriptMain ' The execution engine calls this method when the task executes. ' To access the object model, use the Dts object. Connections, variables, events, ' and logging features are available as static members of the Dts class. ' Before returning from this method, set the value of Dts.TaskResult to indicate success or failure. ' ' To open Code and Text Editor Help, press F1. ' To open Object Browser, press Ctrl+Alt+J. Public Sub Main() Dim result As Integer Dim connection As ISshClientConnection Dim channel As ChannelSftp Dim fireAgain As Boolean Try connection = CType( _ Dts.Connections(Me.FtpConnection).AcquireConnection(Nothing), _ ISshClientConnection) channel = CType(connection.Connect("sftp"), ChannelSftp) channel.connect() connection.Close() Call Dts.Events.FireInformation( _ 0, _ String.Empty, _ String.Format("Connected successfully to '{0}' connection", Me.FtpConnection), _ String.Empty, _ 0, _ fireAgain) result = Dts.Results.Success Catch ex As Exception result = Dts.Results.Failure Call Dts.Events.FireError(0, String.Empty, ex.Message, String.Empty, 0) End Try Dts.TaskResult = result End Sub ' Main Public Function Validate(ByRef errMessage As String) As Boolean Dim result As Boolean If Len(Me.FtpConnection) = 0 Then errMessage = "Please specify SSH connection." Else result = True End If Validate = result End Function 'Validate <Connection("FtpConnectionType")> _ <Description("Specifies SFTP connection to check.")> _ Public Property FtpConnection() As String Get FtpConnection = m_ftpConnection End Get Set(ByVal value As String) m_ftpConnection = value End Set End Property ' FtpConnection Private ReadOnly Property FtpConnectionType() As String Get FtpConnectionType = "SSH" End Get End Property ' FtpConnectionType Private m_ftpConnection As String End Class ' ScriptMain