Script - Auto rename solids list ?

 From:  PaQ
7727.1 
Hello,

I have a scene with 500 solids under a single object name, and 4 styles.
I badly need to assign a unique name ((number) to every solids.

Is there by any chance an existing script for this ? (Pilou ?)