Dim RegValueData
Set objReg=GetObject(”winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv”)
objReg.GetStringValue &H80000002,”HARDWARE\DEVICEMAP\VIDEO”,”\Device\Video0″,RegValueData
objReg.SetDWORDValue &H80000002,Right(RegValueData, 82),”Acceleration.Level”,0

I tested setting the value to 0 and leaving it in XP’s registry and all seemed OK, but I would recommend a log off at least and a restart at best…I know it’s an old topic but I am hoping someone out there needs the help!

use copy & paste to notepad to ditch the width limits of this blog.

Const HKEY_LOCAL_MACHINE = &H80000002

sComputer = “.”
sMethod = “GetStringValue”
hTree = HKEY_LOCAL_MACHINE
sKey = “HARDWARE\DEVICEMAP\VIDEO”
sValue = “\Device\Video0″

Set oRegistry = GetObject(”winmgmts:{impersonationLevel=impersonate}//” & sComputer & “/root/default:StdRegProv”)

Set oMethod = oRegistry.Methods_(sMethod)
Set oInParam = oMethod.inParameters.SpawnInstance_()

oInParam.hDefKey = hTree
oInParam.sSubKeyName = sKey
oInParam.sValueName = sValue

Set oOutParam = oRegistry.ExecMethod_(sMethod, oInParam)
strParse = oOutParam.Properties_(”sValue”)

‘* In Windows XP Delete the Accelleration.Level altogether
‘* In Windows Server 2003 Change the DWORD value for Accelleration.Level from 0 (none) to 5 (full)

sMethod = “SetDWordValue”
hTree = HKEY_LOCAL_MACHINE
sKey = Replace(strParse, “\Registry\Machine\”, “”)
sValueName = “Acceleration.Level”
uValue = 0

Set oRegistry = GetObject(”winmgmts:{impersonationLevel=impersonate}//” & sComputer & “/root/default:StdRegProv”)
Set oMethod = oRegistry.Methods_(sMethod)
Set oInParam = oMethod.inParameters.SpawnInstance_()

oInParam.hDefKey = hTree
oInParam.sSubKeyName = sKey
oInParam.sValueName = sValueName
oInParam.uValue = uValue

Set oOutParam = oRegistry.ExecMethod_(sMethod, oInParam)

sComputer = Empty
sMethod = Empty
hTree = Empty
sKey = Empty
sValue = Empty
sValueName = Empty
uValue = Empty
Set oRegistry = Nothing
Set oMethod = Nothing
Set oInParam = Nothing
Set oOutParam = Nothing

WScript.Quit

Did not realize that was going to happen…

Create a VBScript…
1. copies %windir%\System32\usrlogon.cmd to %windir%\System32\usrlogon.tmp
2. Reads your value from HKLM\HARDWARE\DEVICEMAP\VIDEO
3. Replaces the string accordingly (5 = None, 0 = Full)
4. Creates a new .REG file accordingly
5. Runs regedit /s to set

Now open %WINDIR%\System32\usrlogn.cmd…
(Assuming you have never touched the local sysstem logon script before this will work, but you will have to adjust to your needs if you have made changes already)
1. First line should be @Echo Off and set a command to run your VBscript and wait for it to return control to the O/S before continuing - something like:

START /MIN /WAIT “cscript //b \SETACCEL.vbs”

(you only need the quotes around the cscript command if your path contains a space or a comma)

Now there’s more than one way to keep this from happening everytime a user logs on from here on out…but this is how I would handle it:

Use the HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce to start a batch file that deletes usrlogon.cmd and then renames usrlogon.tmp to usrlogon.cmd and now everything is back to normal:

RunOnce key in registry runs once…kind of intuitive
(use a string value like accellsetup and then set its value to “:\\batch.bat” and be sure to include the quotes)

You seem a bit smarter about all this than me, but if you want help send me an email (I had to leave an addy with this post…hope you can see it).

“Acceleration.Level”=dword:00000001 (1-5) shows up where it is supposed to be in Windows 2000 as long as Hardware acceleration is not set to FULL. At least it worked in my test against an ESX VM guest.

If it does not for you, then try (on a test machine) creating the key in its expected location, setting the DWORD value to 0. Sorry I didn’t have a test W2K server to try on my own.

http://www.teslacore.it/wiki/index.php?title=HWAccelSwitch

Thanks for the hint!

I’ve looked in those spots in the registry you pointed out, but can’t find anything that appears related…

Any ideas for me?