Script for exporting vonMises of components

Dear All,

In my current project I have 21 different components of which I have to obtain the average vonMises stress of the shell elements inside the components, resulting in 21 different values. I would like to run multiple analyses with different thicknesses and material properties. To make the process faster, I would like to create a TCL script which would be able to obtain the average vonMises of each component and write it out to a file. Could someone suggest a source that would help me get started?

Kind Regards,
Balazs