This script will fix Aero Theme for some users. VBScript)
| 'Turn on Areo Desktop On Error Resume Next Dim WshShell, sMsg, sInput, sDone sMsg = "This script will turn on Areo Desktop." & vbCr & vbCr _ & "Adding information can unintentionally change or delete values and cause components to stop working correctly." _ & " If you do not trust the source of this information, do not add it to the registry." & vbCr & vbCr _ & "Would you like to continue?" sInput = MsgBox(sMsg, vbYesNo + vbInformation, "Paul's XP and Vista Tweaks") If sInput = vbYes Then Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.RegWrite "HKCU\Software\Microsoft\DWM\Composition", 1, "REG_DWORD" WshShell.RegWrite "HKCU\Software\Microsoft\DWM\CompositionPolicy", 2, "REG_DWORD" WshShell.Run("net stop uxsms") WshShell.Run("net start uxsms") sDone = "Your Areo Desktop should now work." & vbCr & vbCr _ & "This script was downloaded from www.paulsxp.com" MsgBox sDone, 64, "Finished" End If |