Automation - Browsing a Schema Class Definition

This example uses the Windows NT provider schema.

Dim Computer As IADsComputer
    Dim Class As IADsClass
    Dim Property As IADsProperty
    Dim V As Variant
    Dim I As Integer
 
    Set c = GetObject("WinNT://MyDomain/MyMachine,Computer")
    Set Class = GetObject(c.Schema)
    
    Debug.Print "Class: " & Class.Name
    Debug.Print "GUID: " & Class.GUID
    Debug.Print "Implemented by: " & Class.CLSID
    
    If Class.Container Then
        Debug.Print "Container Object"
        Debug.Print "Class Contains:"
        For Each V In Class.Containment
            Debug.Print "   "; V
        Next V
    Else
        Debug.Print "Leaf Object"
    End If
    
    
    Debug.Print "Properties in this Class: "
    For Each V In Class.MandatoryProperties
        Debug.Print "   "; V
    Next V
    For Each V In Class.OptionalProperties
        Debug.Print "   "; V
    Next V