How to get the color /material of a part in Catia using VBscript

[Kevintp]

Hi,

I like to write a VBScript that will retrieve the color or material data of a part that I current load into Catia.
I have tried this:

Dim my_data as AnyObject
set my_data = CATIA.Activedocument.RenderingMaterial

but it gave me an error message saying that: Object does not support this method or property.

I would really appreciate if you can help me to write set of codes that will get the color or material properties of a CATIA part.

Thanks.

Kevin