VBScript to change the default VHD / VM location

I have found numerous resources on the net to perform this using PowerShell scripting. However, doing the same in VBScript isn’t straight forward. I needed this piece of code for my HVS2008 UI project on Codeplex. I just worked on it and wanted to share the same here. You can download the script http://www.ravichaganti.com/blog/wp-content/uploads/2008/10/changevmssdata1.vbs