次の方法で共有

IADsProperty インターフェイス (iads.h)

  • [アーティクル]

IADsProperty インターフェイスは、スキーマ クラス オブジェクトの 1 つの属性定義を管理するように設計されています。 属性定義は、プロパティの最小値と最大値、その構文、およびプロパティが複数の値をサポートしているかどうかを指定します。 スキーマ管理に関連するその他のインターフェイスには 、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
ヘッダー iads.h

関連項目

Iad

IADsClass

IDispatch