IResult = SystemParametersInfo(SPI_GETFONTSMOOTHING, 0, ref pv, 0) * Call to systemparametersinfo to get the font smoothing value. Static extern bool SystemParametersInfo(uint uiAction, uint uiParam, ref int pvParam, uint fWinIni) Just to add more options, I have the C# version, adding GetFontSmoothing to it. WinAPI.SystemParametersInfo SPI_SETFONTSMOOTHING, 0, 0, SPIF_UPDATEINIFILE Or SPIF_SENDCHANGEīoth scripts accept one parameter, 0 means disable ClearType, 1 means enable. WinAPI.SystemParametersInfo SPI_SETFONTSMOOTHINGTYPE, 0, FE_FONTSMOOTHINGCLEARTYPE, SPIF_UPDATEINIFILE Or SPIF_SENDCHANGE WinAPI.SystemParametersInfo SPI_SETFONTSMOOTHING, 1, 0, SPIF_UPDATEINIFILE Or SPIF_SENDCHANGE WinAPI.Register 'user32.dll', 'SystemParametersInfo', 'i=uuuu' You will first need to register it on the target machine, then you could use this VBScript: Set WinAPI = CreateObject('DynamicWrapperX') If, for some reason, you can't use PowerShell, you'll need DynamicWrapperX in order to execute WinAPI functions in WSH. $winapi::SystemParametersInfo($SPI_SETFONTSMOOTHING, 0, 0, $SPIF_UPDATEINIFILE -bor $SPIF_SENDCHANGE) $winapi::SystemParametersInfo($SPI_SETFONTSMOOTHINGTYPE, 0, $FE_FONTSMOOTHINGCLEARTYPE, $SPIF_UPDATEINIFILE -bor $SPIF_SENDCHANGE)

$winapi::SystemParametersInfo($SPI_SETFONTSMOOTHING, 1, 0, $SPIF_UPDATEINIFILE -bor $SPIF_SENDCHANGE) $winapi = Add-Type -MemberDefinition $signature -Name WinAPI -PassThru $signature = static extern bool SystemParametersInfo( The following script requires version 2.0, which is available from Windows XP SP3: #requires -version 2.0 The modern way of scripting under Windows is using PowerShell.

Windows 7 not logging off