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

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

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

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

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

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

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

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

Методы

Интерфейс IADsProperty содержит следующие методы.

Комментарии

Методы интерфейса 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

Требования

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

IAD

IADsClass

IDispatch