CimObject.ObjectCount (read-only property)

Obsolete Replaced by a GefObject
Syntax CimObject.ObjectCount
Description Returns an Integer representing the number of CimObjects this object contains.
Example 

                Dim
                Obj As CimObject
                Dim Child As CimObject
                Set Obj = CimGetScriptOwner()
                Dim Max As Integer
                Max = Obj.ObjectCount - 1
                Dim Index As Integer
                For Index = 0 To Max
                  Set Child = Obj.GetObject(Index)
                Next Index