'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