'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