Can I bulk delete unused vcs roots?

I'm on TC 8.1.1 and have a couple thousand unused vcs roots that I need to get rid of, and I don't see any reasonable efficient way of deleting them through the UI.  I can write a script to delete them all through the api, but before I do that, I'd like to know if I'm missing something in the UI that would make this easier.

The best way I can figure to do this through the UI is Administration > Server Health > Unused VCS roots, then clicking Delete VCS Root and OK for each one.  Am I missing a better way?