Decreasing Hardware Acceleration

We use a brute force tool to imitate keystrokes, I just wanted to see if there was another route.  I've done google searches and examined the registry after changing it and I can't find anything.  Just thought it wouldn't hurt to ask if there was a spot in the registry I could modify.

Fair enough; unfortunately, such low-level configuration is not dependant on the registry, because the hardware is usually configured prior to loading the registry. So, I guess you'll have to stick with your brute force method for now ;-)

Thanks for the points. :)

I have been searching and this is the best I can find :

http://www.experts-exchange.com/Community_Support/Q_20563400.html

cool, thanks gecko, i usually do vbscript, and here's what I got, it's working great (xxxxxxx's have been substituted for company specific info), there are some in house rountines I'm running, sometimes they are easier to use than WshShell object.

*******************************************************************************************************************

Option Explicit
HW_Accel

Sub HW_Accel

Dim objfso, WshShell, objOutputFile, sOutputFile, sDevice, sUpper, x, sSearchKey, sNewKey, sValue, sRemove

Set objfso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
CONST ForReading = 1, ForWriting = 2, ForAppending = 8

sOutputFile = "C:\Acceleration.log"

If objfso.FileExists(sOutputFile) Then
            objfso.DeleteFile(sOutputFile)
End If

Set objOutputFile = objfso.OpenTextFile(sOutputFile, ForAppending, true)      
      
If Not IncludeCodeFile_GlobalNamespace("xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx") Then
      objOutputFile.Writeline Date & "  " & Time & "  Failed to load WMI_Registry.vbi"
      objOutputFile.Writeline Date & "  " & Time & "  Exiting.."
      Exit Sub
Else
      objOutputFile.Writeline Date & "  " & Time & "  WMI_Registry.vbi loaded! Continuing.."
End If      

If Reg_ReadValue("HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\VIDEO", "\Device\Video0", sDevice) Then
      'wscript.echo sDevice
      sDevice = UCase(sDevice)
      sSearchKey = Replace(sDevice, "\REGISTRY\MACHINE", "HKEY_LOCAL_MACHINE")
      'wscript.echo sSearchKey
      If Reg_ExistKey(sSearchKey) Then
            If Reg_ExistValue(sSearchKey, "Acceleration.Level") Then
                  'wscript.echo "It's there"
                  objOutputFile.Writeline Date & "  " & Time & "  Acceleration.Level value exists in " & sSearchKey & ". Attempting to get DWord value...."
                        If Reg_GetDWordValue(sSearchKey, "Acceleration.Level", sValue) Then
                              objOutputFile.Writeline Date & "  " & Time & "  Value is: " & sValue
                                    If sValue <> 1 Then
                                          objOutputFile.Writeline Date & "  " & Time & "  Attempting to change DWord Value to 1..."
                                          sNewKey = sSearchKey & "\Acceleration.Level"
                                          WshShell.RegWrite sNewKey, "1", "REG_DWORD"
                                          objOutputFile.Writeline Date & "  " & Time & "  Value Changed to 1, we are done - exiting..."
                                          Exit Sub
                                          'wscript.echo "Written"
                                    Else
                                          objOutputFile.Writeline Date & "  " & Time & "  Value is already equal to " & sValue & ", no need to modify, exiting..."
                                          Exit Sub
                                    End If
                        Else
                              objOutputFile.Writeline Date & "  " & Time & "  Value does not exist, or unable to determine value.  Will attempt to add manually.."
                                    If Reg_WriteValue(sSearchKey, "Acceleration.Level", "1", 4) Then
                                          objOutputFile.Writeline Date & "  " & Time & "  Value was successfully added!"
                                          'wscript.echo "Created"
                                    Else
                                          objOutputFile.Writeline Date & "  " & Time & "  Value was not added successfully, Exiting..."
                                          Exit Sub
                                    End If
                        End If
            Else
                  'wscript.echo "No"
                  objOutputFile.Writeline Date & "  " & Time & "  No Acceleration.Level value (HW acceleration is set to full), attempting to add DWord Value....."
                  If Reg_WriteValue(sSearchKey, "Acceleration.Level", "1", 4) Then
                        objOutputFile.Writeline Date & "  " & Time & "  Value was successfully added!"
                        'wscript.echo "Created"
                  Else
                        objOutputFile.Writeline Date & "  " & Time & "  Value was not added successfully, Exiting..."
                        Exit Sub
                  End If
            End If
      Else
            objOutputFile.Writeline Date & "  " & Time & "  Key from parsed string does not exists, Exiting...."
            Exit Sub
      End If
Else
      objOutputFile.Writeline Date & "  " & Time & "  Key not present, Exiting..."
      Exit Sub
End If

End Sub

Function IncludeCodeFile_GlobalNamespace(ByVal FileName)
      IncludeCodeFile_GlobalNamespace = False                                                                                        
            
      Dim FSO, FileObj, StreamObj, S

      Set FSO = CreateObject("Scripting.FileSystemObject")

      On Error Resume Next
      Set FileObj = FSO.GetFile(FileName)
            If Err.Number <> 0 Then
                  objOutputFile.Writeline Date & "   " & Time & vbTab & vbTab & "GetFile Error: " & Err.Number & " - " & Err.Description
                  Exit Function
            End If
                  If FileObj.Size < 1 Then
                        objOutputFile.Writeline Date & "   " & Time & vbTab & vbTab & "File Size: " & FileObj.Size
                        Exit Function
                  End If
            Set StreamObj = FileObj.OpenAsTextStream(1, -2)
                        If Err.Number <> 0 Then
                              objOutputFile.Writeline Date & "   " & Time & vbTab & vbTab & "OpenTextStream Error: " & Err.Number & " - " & Err.Description
                              Exit Function
                        End If
            S = StreamObj.ReadAll()
                        If Err.Number = 0 Then
                              Err.Clear
                              ExecuteGlobal S
                                    If Err.Number <> 0 Then
                                          objOutputFile.Writeline Date & "   " & Time & vbTab & vbTab & "ExecuteGlobal Error: " & Err.Number & " - " & Err.Description
                                          Exit Function
                                    End If
                              IncludeCodeFile_GlobalNamespace = True
                        Else
                              objOutputFile.Writeline Date & "   " & Time & vbTab & vbTab & "ReadAll Error: " & Err.Number & " - " & Err.Description
                        End If
      StreamObj.Close
      Set FileObj = Nothing
      Set StreamObj = Nothing
      Set FSO = Nothing

End Function

***********************************************************************************************************************

I keep getting your vbscript writing to the log file this :

 Failed to load WMI_Registry.vbi
 Exiting..

With the times etc in front of it, Is there another vbscript or something else I need or something I have to do just so I can get this to work, I just want to see it running :)

Where you replaced xxxx for company specific info , would I replace the xxxx's for my machine name or what would I put in there ?

I am glad it worked and maybe a point split between myself and interactive mind or something ? If not, not to worry, I am just glad I helped you out :)

Those are the in house routines I'm loading, those are written here at my company.  You won't be able to load those.  The Reg_ReadValue, Reg_ExistValue, Reg_ExistKey, and Reg_WriteValue are the functions that use the in house logic.  You can replace them with the regular WshShell methods, for example:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/wsmthregwrite.asp

It works in the environment I running it in, any other would use the WshShell object for the manipulation of the registry.  I use a WshShell.RegWrite method in this script.  I could've easily use RegRead, etc. for some of the pieces that I'm using the in house functions/routines for, but I'd rather spare the headache of putting variables in the WshShell statements, I sometimes have trouble with that and end up using a lot of quotes.

Acutally, the "Failed to load wmi_registry.vbi" means it is working :)

ok fair enough, Just normally when I see a message that starts with or has the word "failed" in it , I tend to think something has gone wrong lol :)