script for clear type

[Briandr]

Hi,

I found this code sample from another forum. The post was old (5+ years). I think this was designed for XP, but it should work with W7.

Dim WsShell, Path, Key, Value, Type
Set WsShell = WScript.CreateObject("Wscript.Shell")
Path = "HKCU\Control Panel\Desktop\"
Key = "FontSmoothing"
Value = "2"
Type = "REG_DWORD"
WsShell.RegWrite Path & Key, Value, Type
Set WsShell = nothing

It is throwing a line 1, char 32, error, expected identifier. Can someone tell me what is missing?

Thank you.

 

[GomezAddamz]

Just a guess, but it may be you're trying to use a keyword as a variable name (I noticed char 32 is the T in Type). Try using more specific variable names and that may clear the error (e.g. regType).