The schema management objects are useful for browsing the definition of a schema class or browsing the schema classes available in a schema. There are two basic ways to do this:
Obtain an object's schema definition using the IADs::get_Schema method.
Find and enumerate the contents of a schema container.
Example 1: Browsing a Schema Class Definition (Visual Basic)
Dim u As IADsUser
Dim class As IADsClass
Dim property As IADsProperty
dim V as Variant
Set u = GetObject("WinNT://MyDomain/MyMachine/Administrator,user")
Set class = GetObject(u.Schema)
Debug.Print "Class: " & class.Name
Debug.Print "GUID: " & class.GUID
Debug.Print "Implemented by: " & class.CLSID
If class.Container = True Then
Debug.Print "Container Object"
Else
Debug.Print "Leaf Object"
End If
Debug.Print "Class contain: "
For Each ContainmentClass In class.Containment
Debug.Print ContainmentClass
Next ContainmentClass
Debug.Print "Properties in this Class: "
For Each property In class
Debug.Print property.Name & " "
Next property