The script displayed below is being used to display some information about the package and log to some messageboxes (presently). The EnumPackageRecords works fine and returns all the data it should. EnumPackageInfos and EnumStepLogRecords do not return any data or display their messagebox. No error is given. I am having difficulty in determining why this is occurring. All three operate very similarly as I understand it. I am interested in comments and suggestions on this problem.


'Init Variables for EnumPackageRecords Data
    dim strName
    dim strDescription
    dim strPackageID
    dim strLineageFullID
    dim strLineageShortID
    dim strComputer
    dim strOperator
    dim strLogDate
    dim strExecutionTime
    dim strStartTime
    dim strFinishTime
    dim strErrorCode
    dim strErrorDescription

'Init Variables for EnumPackageInfos Data
    dim colPackageInfo
    dim objPackageInfo

'Init Variables for EnumStepLogRecords Data
    dim colStepLogRecords
    dim objStepLogRecords

'Init Variables for Misc
    dim app
    dim coll
    dim pkg
    dim pss
    dim opi


    set pkg = DTSGlobalVariables.parent

    set app = CREATEOBJECT("DTS.Application")

    set pss = app.GetPackageSQLServer( "SERVER", "", "", DTSSQLStgFlag_UseTrustedConnection)

    set coll = pss.EnumPackageLogRecords(pkg.name, True, "", pkg.VersionID, "")
    set colPackageInfo = pss.EnumPackageInfos(pkg.name, True, pkg.VersionID)

    set opi = coll.Next
    set objPackageInfo = colPackageInfo.Next

    do until coll.EOF
        msgbox ( "Name: " & opi.Name & _
            vbCrLf & "Description: " & opi.Description & _
            vbCrLf & "PackageID: " & opi.PackageID & _
            vbCrLf & "LineageFullID: " & opi.LineageFullID & _
            vbCrLf & "LineageShortID: " & opi.LineageShortID & _
            vbCrLf & "Computer: " & opi.Computer & _
            vbCrLf & "Operator: " & opi.Operator & _
            vbCrLf & "LogDate: " & opi.LogDate & _
            vbCrLf & "ExecutionTime: " & opi.ExecutionTime & _
            vbCrLf & "StartTime: " & opi.StartTime & _
            vbCrLf & "FinishTime: " & opi.FinishTime & _
            vbCrLf & "ErrorCode: " & opi.ErrorCode & _
            vbCrLf & "ErrorDescription: " & opi.ErrorDescription )
        strName = opi.Name
        strDescription = opi.Description
        strPackageID = opi.PackageID
        strLineageFullID = opi.LineageFullID
        strLineageShortID = opi.LineageShortID
        strComputer = opi.Computer
        strOperator = opi.Operator
        strLogDate = opi.LogDate
        strExecutionTime = opi.ExecutionTime
        strStartTime = opi.StartTime
        strFinishTime = opi.FinishTime
        strErrorCode = opi.ErrorCode
        strErrorDescription = opi.ErrorDescription

        set opi = coll.Next
    Loop
'EnumPackageInfos
    do until colPackageInfo.EOF
        msgbox ("CreationDate: " & objPackageInfo.CreationDate & _
            vbCrLf & "Description: " & objPackageInfo.Description & _
            vbCrLf & "IsOwner: " & objPackageInfo.IsOwner & _
            vbCrLf & "Name: " & objPackageInfo.Name & _
            vbCrLf & "Owner: " & objPackageInfo.Owner & _
            vbCrLf & "PackageDataSize: " & objPackageInfo.PackageDataSize & _
            vbCrLf & "PackageID: " & objPackageInfo.PackageID & _
            vbCrLf & "PackageType" & objPackageInfo.PackageType & _
            vbCrLf & "PackageInfo: " & objPackageInfo.VersionID _
            )
        set objPackageInfo = colPackageInfo.Next
    Loop

'EnumStepLogRecords
    set colStepLogRecords = pss.EnumStepLogRecords(strLineageFullID, "")
    set objStepLogRecords = colStepLogRecords.Next

    do until colStepLogRecords.EOF
        msgbox ("ErrorCode: " & objStepLogRecords.ErrorCode & _
            vbCrLf & "ErrorDescription: " & objStepLogRecords.ErrorDescription & _
            vbCrLf & "ExecutionTime: " & objStepLogRecords.ExecutionTime & _
            vbCrLf & "FinishTime: " & objStepLogRecords.FinishTime & _
            vbCrLf & "LineageFullID: " & objStepLogRecords.LineageFullID & _
            vbCrLf & "Name: " & objStepLogRecords.Name & _
            vbCrLf & "ProgressCount: " & objStepLogRecords.ProgressCount & _
            vbCrLf & "StartTime: " & objStepLogRecords.StartTime & _
            vbCrLf & "StepExecutionID: " & objStepLogRecords.StepExecutionID & _
            vbCrLf & "StepExecutionResult: " & objStepLogRecords.StepExecutionResult _
            )

        set objStepLogRecords = colStepLogRecords.Next

    Loop

I have figured out the problem with EnumStepLogRecords. I had an empty string where a NULL needed to be, i.e.

set colStepLogRecords = pss.EnumStepLogRecords(strLineageFullID, "")

set colStepLogRecords = pss.EnumStepLogRecords(strLineageFullID, NULL)

EnumStepLogRecords now works fine, but EnumPackageInfos does not.

With regard to the EnumPackageInfos, for some reason, putting an empty string for the versionid works, while putting the guid for the versionid does not. I am unclear on why this is the case, but I am happy that the results I desire are occurring.

set colPackageInfo = pss.EnumPackageInfos(pkg.name, True, "")

set colPackageInfo = pss.EnumPackageInfos(pkg.name, True, pkg.VersionID)