Local $i=0
Local $strRet
While 1
$i=$i+1
$strRet =RegEnumKey("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\GraphicsDrivers\Configuration",$i)
If $strRet ="" Then ExitLoop
ConsoleWrite($strRet&@CRLF)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\GraphicsDrivers\Configuration\" & $strRet & "\00\00","Scaling","REG_DWORD","3")
WEnd
Exit