Microsoft (R) SQL Server Execute Package Utility
Version 9.00.4035.00 for 32-bit
Copyright (C) Microsoft Corp 1984-2005. All rights reserved.

Started:  12:12:39 PM
Info: 2011-11-04 12:13:02.38
   Code: 0x40016038
   Source: Cntr_Aging_Data_Dump 
   Description: The package is attempting to configure from the environment variable "DBServerName".
End Info
Warning: 2011-11-04 12:13:02.40
   Code: 0x80012017
   Source: Cntr_Aging_Data_Dump 
   Description: The package path referenced an object that cannot be found: "\Package.Variables[User::Exec_Dt].Properties[Value]". This occurs when an attempt is made to resolve a package path to an object that cannot be found.
End Warning
DTExec: Could not set \Package.Variables[User::Exec_Dt].Properties[Value] value to Default.
Started:  12:12:39 PM
Finished: 12:13:02 PM
Elapsed:  22.828 seconds

Public Class ScriptMain

    Public Sub Main()

        Dim sqlConnStr As String = "Data Source=" & RdVarStr("DB_Server_Name") & ";Initial Catalog=" & RdVarStr("DB_Init_Cat") & ";Integrated Security=True;"

        Dim varName As String
        Dim varValue As Object
        Dim sql As String

        SetReportName()
      
        Try
            ' 1. Initial variables using all configured value for SSIS in database
            Using sqlConn As New Data.SqlClient.SqlConnection(sqlConnStr)
                sqlConn.Open()
                Using sqlCmd As New Data.SqlClient.SqlCommand()
                    Dim sqlDtReader As Data.SqlClient.SqlDataReader
                    sqlDtReader = sqlCmd.ExecuteReader()
                    While (sqlDtReader.Read)
                        varName = CStr(sqlDtReader.GetValue(0))
                        varValue = sqlDtReader.GetValue(1)

                        If (WriteVariable(varName, varValue)) Then
                            Dts.Log("Value of " & varName & " is " & RdVarStr(varName), 0, Nothing)
                        Else
                            Dts.Log("Variable " & varName & " does not exist in the variable list!", 0, Nothing)
                        End If
                    End While
                    sqlDtReader.Close()
                End Using
            End Using
            SetDates()
            Dts.TaskResult = Dts.Results.Success
        Catch ex As Exception
            Dts.Log(ex.ToString, 0, Nothing)
            WriteVariable("Error_Message", "TaskName:" & RdVarStr("TaskName") & vbCrLf & "ExceptionMessage:" & ex.ToString & vbCrLf)
            Dts.TaskResult = Dts.Results.Failure
        End Try
    End Sub