Const HKEY_LOCAL_MACHINE = &H80000002
Const LookupValue = "Acceleration.Level"
Const FullAccel = "0"

strComputer = "."

Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

strKeyPath = "HARDWARE\DEVICEMAP\VIDEO"
objRegistry.EnumValues HKEY_LOCAL_MACHINE, strKeyPath, arrValueNames, arrValueTypes

For Each strValue in arrValueNames
	if instr(strValue, "Video") > 0 then
		objRegistry.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValue, strRunCommand

		strPath = Replace(strRunCommand, "\Registry\Machine\", "") 

		objRegistry.SetDWORDValue HKEY_LOCAL_MACHINE, strPath, LookupValue, FullAccel
	End If   
Next