ASP - EnumBackups
EnumBackups
Метод EnumBackups объекта IIsComputer служит для перечисления архивов метабазы, хранящихся в одном или нескольких расположениях, получения расположения, номера версии и даты создания каждого архива.
Синтаксис
IIsComputer.EnumBackups расположение, индекс, версия, расположение_архива, дата_время
Параметры
- расположение
- Строка длиной до 100 знаков, указывающая на расположение архива. Если задана пустая строка, будет произведен поиск по всем расположениям архивов.
- индекс
- Индекс найденного архива. Последовательно просматриваются индексы, начиная с 0, с шагом 1, пока не будет возвращено значение MD_ERROR_DATA_NOT_FOUND.
- версия
- Номер версии найденного архива.
- расположение_архива
- Расположение найденного архива.
- дата_время
- Дата в время создания архива в формате UTC (Universal Time Coordinate), ранее — GMT (Greenwich Mean Time).
Пример программы
<%@ LANGUAGE=VBScript %>
<SCRIPT LANGUAGE = "JScript" RUNAT = SERVER>
var TempDate = new Date();
TempDif = TempDate.getTimezoneOffset();
Session("sTempDif") = TempDif;
</SCRIPT>
<%
Dim CompObj, Index, Version, Location, GMTDate, LocDate, MinDif
MinDif = Session("sTempDif")
On Error Resume Next
Set CompObj = GetObject("IIS://LocalHost")
Index = 0
' Выполнение итераций до возвращения методом ошибки.
Do While True
' Задание пустой строки расположения подразумевает просмотр всех расположений.
CompObj.EnumBackups "", Index, Version, Location, GMTDate
If Err.Number <> 0 Then
' Если возвращена ошибка, значит, уже перечислены всех архивы.
Exit Do
End If
Response.Write Version & ", "
Response.Write Location & ", "
Response.Write GMTDate & ", "
' Преобразование в локальные дату и время сервера.
LocDate = DateAdd("n", (-MinDif), GMTDate)
Response.Write "(" & LocDate & ")"
Response.Write "<BR>"
Index = Index + 1
Loop
%>