‘********************************************************************** ‘ 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
