Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11639
Последний выпуск: 19.06.2015

ASP - GetDataPaths

GetDataPaths

Метод ADSI GetDataPaths служит для поиска путей к разделам метабазы, где расположено указанное свойство любого объекта IIS Admin. Этот метод можно использовать для поиска копий свойства, чтобы предотвратить наследование значений разделами. Поиск пути будет начат с раздела, связанного с объектом, указанном в GetDataPaths, и вернет начальный путь, если указанное свойство находится в этом разделе. Например, если использовать метод GetDataPaths для объекта IIsWebServer на третьем веб-сервере, поиск начнется с каталога IIS://LocalHost/W3SVC/3 и вернет пути IIS://LocalHost/W3SVC/3, IIS://LocalHost/W3SVC/3/ROOT/VDir1 и IIS://LocalHost/W3SVC/3/ROOT/VDir1/Dir1/File1, если в соответствующих разделах будет найдено указанное свойство.

Параметр данного метода позволяет указать область поиска: только пути свойства с возможностью наследования либо все пути свойства. Используя метод GetDataPaths, можно определять как возможность наследования данного свойства, так и расположение всех его копий.

Синтаксис

список_путей = объект.GetDataPaths(свойство, флаг_атрибута)

 

Обозначения

список_путей
Переменная, которой присваивается список путей к копиям указанного свойства.
объект
Объект IIS Admin. Обычно это результат предшествующей операции GetObject.
свойство
Свойство, пути к копиям которого требуется найти.
флаг_атрибута
Один из следующих флагов:
IIS_ANY_PROPERTY Поиск путей независимо от возможности наследования свойства.
IIS_INHERITABLE_ONLY Поиск путей, только если свойство обладает возможностью наследования. В противном случае возвращается значение MD_ERROR_DATA_NOT_FOUND.

Замечания

Для извлечения из списка_путей отдельных путей служит инструкция For each Path in PathList...Next.

Пример программы

<% 
  Const IIS_ANY_PROPERTY = 0 
  Const IIS_INHERITABLE_ONLY = 1 
  Const MD_ERROR_DATA_NOT_FOUND = &H800CC801 
  Dim WebSvrObj, PathList, vProperty 
  On Error Resume Next 
'Получение объекта для первого веб-сервера. 
  Set WebSvrObj = GetObject("IIS://LocalHost/W3SVC/1") 
'Получение путей, по которым расположено свойство. 
  vProperty = "AccessFlags" 
  PathList = WebSvrObj.GetDataPaths(vProperty, IIS_INHERITABLE_ONLY) 
  If Err.Number = 0 Then 
    Response.Write "Пути свойства " & vProperty & "<BR>" 
    For each Path in PathList 
      Response.Write Path & "<BR>" 
    Next 
  ElseIf Err.Number = MD_ERROR_DATA_NOT_FOUND Then 
    Response.Write "Свойство не обладает возможностью наследования.<BR>" 
  ElseIf Err.Number = &H80005006 Then 
    Response.Write "Свойство не существует.<BR>" 
  Else 
    Response.Write "Ошибка " & Err.Number & "  " & Err.Description 
  End If
%> 

Оставить комментарий

Комментарий:
можно использовать BB-коды
Максимальная длина комментария - 4000 символов.
 
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог