'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