set oCube = ActiveSceneRoot.AddGeometry("Cube","MeshSurface")
set oVertices = oCube.ActivePrimitive.Geometry.Vertices
for each oVertex in oVertices
        logmessage "Index of the vertex: " & oVertex.Index
next