Dim WshShell,intRegData, strRegValue
Set WshShell = WScript.CreateObject("WScript.Shell")

strRegValue = "HKCU\Software\Microsoft\Internet Explorer\Main\Force Offscreen Composition"

On Error Resume Next
intRegData = CInt(1)
WshShell.RegWrite strRegValue, intRegData, "REG_DWORD"
If Err.Number <> 0 Then
	If Err.Number = -2147024894 Then
		Wscript.Echo "The registry value '" & strRegValue & "' does not exist."
	Else
		WScript.Echo "The following error occurred: " & vbCrLf & Err.Number & vbCrLf & Err.Description
	End If
Else
	WScript.Echo "Force Offscreen Composition is enabled. The current value is: " & intRegData
End If