У меня работает такой ASP скрипт для определения статуса завершения пакета и поиска последнего удачного завершения :

<%@ LANGUAGE=VBScript %>
<%
Dim myDate,dd,x,y,fl,sucs

Set S=Server.CreateObject("SQLDMO.SQLServer")


S.LoginTimeout = 15
S.LoginSecure = True
S.AutoReconnect=False
ServerName="ZEIMFS"

S.Connect ServerName


Set J = S.JobServer.Jobs("ИМЯ ПАКЕТА")

Set R = J.EnumHistory()

myDate=Right(J.LastRunDate,2) & "/" & Mid(J.LastRunDate,5,2) & "/" & Left(J.LastRunDate,4)

Response.Write "<FONT color=YELLOW> Обрабатывался последний раз:" & myDate

Select Case J.LastRunOutcome
Case 3
Response.Write " Статус:ВЫПОЛНЕНИЕ ОТМЕНЕНО!"
Case 0
Response.Write " Статус: <font color=RED> НЕ ОБНОВИЛСЯ! <font color=YELLOW>"
Case 4
Response.Write " Статус:В ПРОЦЕССЕ ОБНОВЛЕНИЯ..."
Case 1
Response.Write " Статус:УСПЕШНО ОБНОВЛЁН"
Case 5
Response.Write " Статус:НЕ ОПРЕДЕЛЕН!"
End select

Response.Write " "

'------------ Ищем последнее успешное выполнение ---------------------------------
fl = False
For x = 1 To R.Rows
For y = 1 To R.Columns
If R.ColumnName(y) = "step_id" And R.GetColumnString(x, y) = "0" Then
fl = True
End If
If R.ColumnName(y) = "run_date" And fl = True And sucs = True Then
dd = R.GetColumnString(x, y)
Response.Write "Дата:" & Right(dd, 2) & "/" & Mid(dd, 5, 2) & "/" & Left(dd, 4)
End If
If R.ColumnName(y) = "run_time" And fl = True And sucs = True Then
dd = R.GetColumnString(x, y)
If Len(Trim(dd)) = 5 Then
Response.Write " Время:" & Left(dd, 1) & ":" & Mid(dd, 2, 2)
End If
If Len(Trim(dd)) = 6 Then
Response.Write " Время:" & Left(dd, 2) & ":" & Mid(dd, 3, 2)
End If
End If
If R.ColumnName(y) = "run_status" And fl = True Then
If R.GetColumnString(x, y) = 1 Then
sucs = True
Response.Write "<p align=left> Последнее успешное обновление: "
End If
End If
Next
fl = False
If sucs = True Then
Exit For
End If
Next
if sucs= False then
Response.Write " <font color=RED> Успешных обновлений НЕТ ! <font color=YELLOW>"
end if
'---------------------------------------------------------------------------------

Set R=Nothing
Set J=Nothing

S.Disconnect
Set S=Nothing

%>