Well, to get you started:

perl -MFile::Find -e "$|++; sub wanted{if((-d $_)&&($_ eq 'CVS')){prin
+t qq|$File::Find::dir\\$_\n|}} find(\&wanted,'.',follow=>1);"
./a\CVS
./b\CVS
./c\CVS
[download]

Then you change the wanted() subroutine to remove/replace the directories under your current directory (where the old CVS' are) with shell commands like rmdir, xcopy, cp -R, or whatever you have available.

What's the reason no-one on your staff knows any scripting?