Antarmuka IADsProperty (iads.h)

Artikel
03/14/2023

Antarmuka IADsProperty dirancang untuk mengelola definisi atribut tunggal untuk objek kelas skema. Definisi atribut menentukan nilai minimum dan maksimum properti, sintaksnya, dan apakah properti mendukung beberapa nilai. Antarmuka lain yang terlibat dalam manajemen skema termasuk IADsClass dan IADsSyntax.

Antarmuka IADsProperty mengekspos metode untuk menggambarkan properti berdasarkan nama, sintaks, rentang nilai, dan atribut lain yang ditentukan. Properti dapat memiliki beberapa nama yang terkait dengannya, tetapi penyedia harus memastikan bahwa setiap nama unik.

Gunakan antarmuka IADsProperty untuk menentukan pada durasi definisi atribut properti yang didukung oleh objek layanan direktori.

Untuk menentukan definisi atribut pada durasi

Ikat ke objek kelas skema objek ADSI.
Menghitung atribut wajib atau opsional yang dapat diakses dari objek kelas skema. Lewati langkah ini jika Anda tahu bahwa objek mendukung atribut minat Anda.
Ikat ke kontainer skema objek kelas skema yang Anda peroleh di langkah pertama.
Ambil objek definisi atribut properti yang menarik dari kontainer skema.
Periksa definisi atribut properti. Anda mungkin juga harus memeriksa objek sintaks.

Warisan

Antarmuka IADsProperty mewarisi dari IDispatch dan IAD. IADsProperty juga memiliki jenis anggota ini:

Metode

Antarmuka IADsProperty memiliki metode ini.


IADsProperty::Qualifiers Mengembalikan kumpulan objek ADSI yang menjelaskan kualifikasi tambahan properti ini.

Keterangan

Metode antarmuka IADsProperty dapat menambahkan atribut baru dan objek properti ke implementasi khusus penyedia.

Contoh

Contoh kode berikut menunjukkan prosedur di atas untuk menerapkan antarmuka IADsProperty untuk menentukan definisi atribut properti.

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

Persyaratan


Klien minimum yang didukung	Windows Vista
Server minimum yang didukung	Windows Server 2008
Target Platform	Windows
Header	iads.h

Lihat juga

IAD

IADsClass

IDispatch

Bagikan melalui