VBS – Access to DTS object in Sql-Server 2000

'**********************************************************************

'  Visual Basic ActiveX Script

'************************************************************************

Function Main()

             Dim oPkg, oStep

             'ACCEDI AL MAIN OBJ DEL PACKAGE IN CUI è COMPRESO LO SCRIPT

             Set oPkg = DTSGlobalVariables.Parent 

             'ACCEDI ALL'ELENCO DEGLI STEPS DTS

             set oStep = oPkg.Steps("DTSStep_DTSActiveScriptTask_3") 

            ' oStep.ExecutionResult =   DTSTaskExecResult_Success

             msgbox(oStep.ExecutionResult)

             oStep.ExecutionResult = 0

        Main = DTSTaskExecResult_Success

End Function