'VBScript example
set oRoot = ActiveProject.ActiveScene.Root
set oPrims = oRoot.Primitives
LogMessage typename(oPrims)
LogMessage "Number of primitives : " & oPrims.Count
for each oPrim in oPrims
        LogMessage oPrim.Name
next