Setting Full Hardware Acceleration with VBS in a POST P2V script.

Here is another useful bit of code script that I came across surfing the big bad internet. 

Dim RegValueData
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\.rootdefault:StdRegProv")
objReg.GetStringValue &H80000002,"HARDWAREDEVICEMAPVIDEO","DeviceVideo0",RegValueData
objReg.SetDWORDValue &H80000002,Right(RegValueData, 82),"Acceleration.Level",0

This will set the Virtual Machine’s hardware acceleration to FULL.  I have added this little gem to my postP2V scripts.  Works very nicely with cscript //nologo SetAccel.vbs

 I also incorporated the nircmd utility to set my screen resolution to 800x600x32 for all my newly created virtual machines.

Have fun P2V’ing! 🙂