Script for removing color definitions

Question

I'm trying to create a script that will remove color definitions other than the default plus our corporate colors. I'm thinking some kind of "while" loop to go through the doc's color list, matching it to an array of named colors.
I see that there is a Color object and methods such as Delete(), but it's not coming together for me.
Any help would be appreciated.

Answer 1

Finally able to get back to this project.
Thanks for this snippet which does work great for removing a single "known" color. What I actually need to do is remove all colors except a specified list.
I've made an attempt (I'm sill relatively new to JS programming), but it only deletes the first instance instead of iterating through all the color definitions:
doc = app.ActiveDoc   //getting the active doc
col  = doc.FirstColorInDoc   //getting the first color in doc
keepColors = new Array ("Black","White","Red","Green","Blue","Cyan","Magenta","Yellow","Dark Grey","Pale Green","Forest Green","Royal Blue","Olive","Salmon","Mauve","Light Salmon","Custom Color");
while (col.ObjectValid() )  //checking if the color object is valid
    if (col.Name in (keepColors))  //color exists
       break
else {
col.Delete()  //delete color
col = col.NextColorInDoc