jobRunner.vbs: Function RunDTS

Function RunDTS(packageName)
  Dim objPkg, strError, iCount

  ‘Execute the package
  WriteLog “Executing DTS ” & packageName
  Set objPkg = CreateObject(“DTS.Package”)
  objPkg.LoadFromSQLServer MIIS_MachineName,,,DTSSQLStgFlag_UseTrustedConnection,,,,packageName
  objPkg.Execute

  ‘Check For Errors
  For iCount = 1 To objPkg.Steps.Count
    If objPkg.Steps(iCount).ExecutionResult = DTSStepExecResult_Failure Then
      strError = strError + objPkg.Steps(iCount).Name + ” failed. ” + chr(13)
    End If
  Next
 
  If strError = “” Then
    WriteLog “DTS package ” & packageName & ” completed successfully”
    RunDTS = 0
  Else
    WriteLog “DTS package ” & packageName & ” failed with error ” & strError
    RunDTS = -1
  End If

  Set objPkg = Nothing
End Function