'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