how to set refresh rate.

[OrionCookies]

I like to set refresh rate. I get settings but unable to set it...need little help. here is my so far code.

'_______________________________
On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery _
("Select * from Win32_DisplayControllerConfiguration")


For Each objItem in colItems
Dim refreshm, refresht
refresht = 60
refreshm = objItem.RefreshRate

Wscript.Echo "Refresh Rate: " & refreshm
if refreshm < 60 then
Wscript.Echo "Refresh Rate: " & refreshm
'like to set refresh rate here....if less than 60
end if

Next
'_____________________________________________

 

[OrionCookies]

ANYONE????

Thanks in Advance...

 

[EBGreen]

I suspect that you will need to do this via the registry. Use a registry tracking tool like regmon and make the change manually and see what changed in the registry.

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]

 

[OrionCookies]

thanks EBGreen for reply.
I had tried to capture, but unsuccess...does anyone know what registry key setup default refresh rate?

thanks.