'VBScript example
Option Explicit
Main()
sub Main()
        dim oModel, oRoot, oGroup, oGroups
        set oRoot = ActiveProject.ActiveScene.Root
        oRoot.AddGroup
        oRoot.AddModel( oRoot.Children )
        set oModel = oRoot.FindChild("_3D_Model")
        set oGroups = oModel.Groups
        LogMessage "Number of Groups : " & oGroups.Count
        for each oGroup in oGroups
                LogMessage oGroup.Name
        next
end sub