Интерфейс IADsProperty (iads.h)

Интерфейс IADsProperty предназначен для управления одним определением атрибута для объекта класса схемы. Определение атрибута определяет минимальное и максимальное значения свойства, его синтаксис и то, поддерживает ли свойство несколько значений. Другие интерфейсы, участвующие в управлении схемами, включают IADsClass и IADsSyntax.

Интерфейс IADsProperty предоставляет методы для описания свойства по имени, синтаксису, диапазонам значений и любым другим определенным атрибутам. Свойство может иметь несколько имен, но поставщики должны убедиться, что каждое имя уникально.

Используйте интерфейс IADsProperty для определения во время выполнения определения атрибута свойства, поддерживаемого объектом службы каталогов.

Определение атрибута во время выполнения

  1. Привязка к объекту класса схемы объекта ADSI.
  2. Перечисление обязательных или необязательных атрибутов, доступных из объекта класса схемы. Пропустите этот шаг, если вы знаете, что объект поддерживает атрибут вашего интереса.
  3. Привязка к контейнеру схемы объекта класса схемы, полученного на первом шаге.
  4. Извлеките объект определения атрибута свойства, интересующего интерес, из контейнера схемы.
  5. Изучите определение атрибута свойства. Возможно, потребуется также проверить объект синтаксиса.

Наследование

Интерфейс IADsProperty наследует от IDispatch и IAD. IADsProperty также имеет следующие типы элементов:

Методы

Интерфейс IADsProperty имеет эти методы.

 
IADsProperty::Qualifiers

Возвращает коллекцию объектов ADSI, описывающих дополнительные квалификаторы этого свойства.

Комментарии

Методы интерфейса IADsProperty могут добавлять новые атрибуты и объекты свойств в реализацию конкретного поставщика.

Примеры

В следующем примере кода показана описанная выше процедура применения интерфейса IADsProperty для определения определений атрибутов свойства.

Dim obj As IADs
Dim cl As IADsClass
Dim pr As IADsProperty
Dim sy As IADsSyntax
Dim sc As IADsContainer

On Error GoTo Cleanup
 
' Step 1
Set obj = GetObject("WinNT://myMachine,computer")
Set cl = GetObject(obj.Schema)
 
' Step 2
' Skip it, assuming the "Owner" attribute is supported by obj.
' For the computer object in this example, it is indeed one of 
' the supported optional properties.
 
' Step 3
Set sc = GetObject(cl.Parent)
 
' Step 4
Set pr = sc.GetObject("Property","Owner")
 
' Step 5
MsgBox "Attribute: " & pr.Name
MsgBox "Syntax:    " & pr.Syntax
If pr.Multivalued = True Then
    MsgBox "The Owner attribute has multiple values."
Else
    MsgBox "The Owner attribute has a single value."
End If
 
' To further examine the syntax
Set sy = GetObject(sc.AdsPath & "/" & pr.Syntax)
MsgBox "Syntax object: " & sy.Name & " of OleAutoDataType: " _
       & sy.OleAutoDataType

Cleanup:
    If (Err.Number <> 0 ) Then
        MsgBox("An error has occurred. " & Err.Number)
    End If

    Set obj = Nothing
    Set cl = Nothing
    Set pr = Nothing
    Set sy = Nothing
    Set sc = Nothing

Требования

   
Минимальная версия клиента Windows Vista
Минимальная версия сервера Windows Server 2008
Целевая платформа Windows
Header iads.h

См. также раздел

Идентификаторы IAD

IADsClass

IDispatch