Icon changing default program

Is there a way to do a mass change of the default tool for a bunch of icons? I have several hundred I want to change.

use something like http://aminet.net/package/util/wb/ProcessIcon and the list command or set up a dopus button.

eg.

list "" pat=#?.info lformat="processicon %P%N SDT *"NewTool*"" to pipe: | execute pipe:

or use 'to ram:script' so you can check it before running it.

Another method if they're all the same new tool is to create or mdify a def_icon and delete the current icons.