'VBScript example : Image clips affecting a material
dim oRoot, oObject, oClip, oMaterial
set oRoot = Application.ActiveProject.ActiveScene.Root
set oObject = oRoot.AddGeometry("Cylinder", "MeshSurface")
SelectObj oObject
ApplyShader "Material\Constant"
BlendInTextureLayers "Image"
set oMaterial = oObject.Material
for each oClip in oMaterial.ImageClips
        LogMessage "name of image clip: " & oClip.Name
next