Here is another script. There is a known issue with Internet Explorer that causes the screen to flicker on Terminal Services. The recommended registry update is to set the key: HKCU\Software\Microsoft\Internet Explorer\Main\Force Offscreen Composition to Reg_DWord = 1. What makes this script a bit interesting is that it takes care of all your user updates through a couple of automated steps.
First, it adds a call to a vbs script into your usrlogn2.cmd that is run every time your users login.
Second, It creates that vb script and puts it into your .\Application Compatibility Scripts\Logon folder.
Third, it calls the chkroot command to allow you to set a rootdrive and run your logon compatibility scripts.
Run this script, set your rootdrive when prompted, and save the file, and the rest is ready for your users to login.
' ' '===============================================================================================================
' ' ' Situation: Registry Update- Screen May Flicker Using Internet Explorer 5.5 SP1 or greater on Terminal Services.
' ' ' Reference: Microsoft Knowledge Base Q271246: Screen May Flicker Using Internet Explorer on Terminal Services
' ' ' Reference: Compaq CUSTOMER ADVISORY: DB010412_CW01: Animated Content May Flicker When Using IE5.5 on T1010 Over Terminal Services
' ' ' Special Notes:
' ' ' This script is different because the key that needs to be modified is in the HKCU hive. Since this is not loaded
' ' ' into the registry until the user logs on, the modification has to occur in a script at or after logon. In this case
' ' ' I choose to use vbscript to spawn the chkroot.cmd to establish the rootdrive, enter a call statement into usrlogn2.cmd,
' ' ' and dynamically create the logon script that will live in the application compatibility scripts folder.
' ' ' provided by RATokeshi www.tokeshi.com
' ' ' created 010501 2015
' ' ' edited 030603 2007
' ' '---------------------------------------------------------------------------------------------------------------
' ' 'To make debugging easier use the Explicit declaraton of variables option. This section is
' ' ' included if this is to be snipped for stand alone code. If Option Explicit has not been
' ' ' enabled un-comment the following line.
Option Explicit 'Does not allow variables that are not declared using the Dim or Const statements to be used.
' ' '
' ' 'If the WScript.Shell object has not ben instanced, un-comment the following 3 lines.
Dim objFileSysObj, objShell, strLogonCompScriptLoc, strExpandedLogonCompScriptLoc, objTextFile, strParenLine, strLogonCompScriptFOCLoc, strExpandedLogonCompScriptFOCLoc, strChkRoot, strExpandChkRoot, intReturn
Set objFileSysObj = CreateObject("Scripting.FileSystemObject") 'Establish the WScript.Scripting object: FileSystemObject
Set objShell = CreateObject("WScript.Shell")
' ' '
' ' ' Add line into UsrLogn2.cmd to call logon compatibility script
strLogonCompScriptLoc="%SystemRoot%\System32\UsrLogn2.Cmd"
strExpandedLogonCompScriptLoc = objShell.ExpandEnvironmentStrings(strLogonCompScriptLoc)
Set objTextFile = objFileSysObj.OpenTextFile(strExpandedLogonCompScriptLoc, 8, True)
objTextFile.WriteLine("call ForceOffscreenComposition.vbs")
objTextFile.Close
' ' '
' ' ' Create Logon Compatibility Script in systemroot ACS folder
strParenLine = "Set Shell = CreateObject" & "(" & """" & "WScript.Shell" & """" & ")"
strLogonCompScriptFOCLoc="%SystemRoot%\Application Compatibility Scripts\Logon\ForceOffscreenComposition.vbs"
strExpandedLogonCompScriptFOCLoc = objShell.ExpandEnvironmentStrings(strLogonCompScriptFOCLoc)
Set objTextFile = objFileSysObj.OpenTextFile(strExpandedLogonCompScriptFOCLoc, 8, True)
objTextFile.WriteLine("' ' '===============================================================================================================")
objTextFile.WriteLine("' ' ' Situation: Registry Update- Screen May Flicker Using Internet Explorer 5.5 SP1 or greater on Terminal Services.")
objTextFile.WriteLine("' ' ' Reference: Microsoft Knowledge Base Q271246: Screen May Flicker Using Internet Explorer on Terminal Services")
objTextFile.WriteLine("' ' ' Reference: Compaq CUSTOMER ADVISORY: DB010412_CW01: Animated Content May Flicker When Using IE5.5 on T1010 Over Terminal Services ")
objTextFile.WriteLine("' ' ' provided by RATokeshi www.tokeshi.com")
objTextFile.WriteLine("' ' ' edited 010501 2015")
objTextFile.WriteLine("' ' '---------------------------------------------------------------------------------------------------------------")
objTextFile.WriteLine("' ' 'To make debugging easier use the Explicit declaraton of variables option. This section is")
objTextFile.WriteLine("' ' ' included if this is to be snipped for stand alone code. If Option Explicit has not been")
objTextFile.WriteLine("' ' ' enabled un-comment the following line. ")
objTextFile.WriteLine("Option Explicit 'Does not allow variables that are not declared using the Dim or Const statements to be used.")
objTextFile.WriteLine("' ' 'If the WScript.Shell object has not ben instanced, un-comment the following 2 lines.")
objTextFile.WriteLine("Dim Shell 'This establishes the variable Shell that will become the WScript.Shell object.")
objTextFile.WriteLine strParenLine
objTextFile.WriteLine("' '")
objTextFile.WriteLine("' ' ' Create and set value for the the Force Offscreen Composition Key")
objTextFile.WriteLine("Const Reg_ForceOffscreenComposition = " & """" & "HKCU\Software\Microsoft\Internet Explorer\Main\Force Offscreen Composition" & """" & "'Set constant as the registry path to the desired key.")
objTextFile.WriteLine("Shell.RegWrite" & "(" & "Reg_ForceOffscreenComposition" & ")" & ", " & """" & "1" & """" & ", " & """" & "REG_DWORD" & """" & "' Write new value to registry.")
objTextFile.WriteLine("' MsgBox Shell.RegRead" & "(" & "Reg_ForceOffscreenComposition" & ")" & "'This provides the administrator with key enumeration/ verification.")
objTextFile.WriteLine("' '")
objTextFile.WriteLine("' ' '===============================================================================================================")
objTextFile.Close
' ' '
' ' ' launch chkroot.cmd to ensure that rootdrive variable is set for substitution
strChkRoot = "%systemroot%\Application Compatibility Scripts\chkroot.cmd"
strExpandChkRoot = objShell.ExpandEnvironmentStrings("""" & strChkRoot & """")
intReturn = objShell.Run(strExpandChkRoot, 1, True)
Go to the downloads page to download this script.