Is there an easy .vbs script that would rename all the files in a directory like so:

Before:
apple_sauce_lrg.jpg
oreos_lrg.jpg
hamburger_lrg.jpg

After:
apple_sauce.jpg
oreos.jpg
hamburger.jpg


Thanks for the help!