This script will fix Aero Theme for some users. VBScript)
| 'Turn on Areo Desktop Option Explicit Dim WSHShell, n,m, MyBox, p,j, itemtype, Title Set WSHShell = WScript.CreateObject("WScript.Shell") p = "HKEY_CURRENT_USER\Software\Microsoft\Windows\DWM\" p = p & "Composition" itemtype = "REG_DWORD" n = 1 j = "HKEY_CURRENT_USER\Software\Microsoft\Windows\DWM\" j = j & "CompositionPolicy" itemtype = "REG_DWORD" m = 2 WSHShell.RegWrite p,n, itemtype WSHShell.RegWrite j,m, itemtype WshShell.Run("net stop uxsms") WshShell.Run("net start uxsms") Title = "Your Areo Desktop should now work." MyBox = MsgBox(Title,64,"Finished") |