У меня работает такой 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
%>
