'VBScript example

option explicit

Main()

sub main()

	dim oRoot

	set oRoot = ActiveProject.ActiveScene.Root

	oRoot.AddModel( oRoot.Children )

	call WriteModels(oRoot)

end sub

function WriteModels( in_obj )

	dim list, n, i, models

	set models = in_obj.models(0)

	n = models.count

	if n = 0 then

		exit function

	end if

	for i = 0 to n - 1

		LogMessage models(i).Name

		call WriteModels( models(i) )

	next

end function