'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