If anyone does want to resort to VBScript to make an even better solution for this, my existing script should make a good starting point:
I haven't looked at it for a while but the script may not even need modifying and it might just need a suitable toolbar button which calls it with the right arguments.