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()
        '
        ' Add your code here
        '
        Dim ConnMgr As ConnectionManager = Dts.Connections("hydhtc99600.acQuire_Chile")
        Dim ConnStr As String = ConnMgr.ConnectionString
        'Dts.Transaction()
        'MsgBox(ConnStr)

        Try
            ConnMgr.AcquireConnection(Nothing)

            Dts.Events.FireInformation(1, "", "Connection Successful", "", 0, False)
            Dts.Events.FireInformation(2, "", "Connection String = " + ConnStr, "", 0, False)
            ConnMgr.ReleaseConnection(Nothing)
            Dts.TaskResult = Dts.Results.Success
        Catch ex As Exception
            Dts.Events.FireError(-1, "", "Connection Failed", "", 0)
            Dts.Events.FireError(2, "", "Connection String = " + ConnStr, "", 0)
            ConnMgr.ReleaseConnection(Nothing)
            Dts.TaskResult = Dts.Results.Failure
        End Try

    End Sub

End Class