Screensaver timeout

[clivebuckwheat]

I can't seem to change the time from 10 to 30 minutes. with this. Is there a way to change the time in unattended mode?. Neither one of my options worked.

"ScreenSaverIsSecure"="1"
"ScreenSaveTimeOut"="1800"
"ScreenSaveActive"="1"
"SCRNSAVE.EXE"="C:\\WINDOWS\\system32\\logon.scr"

KEY_CURRENT_USER = &H80000001
strComputer = "."
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "Control Panel\Desktop"
objReg.CreateKey HKEY_CURRENT_USER, strKeyPath
ValueName = "ScreenSaveTimeout"
strValue = "1800"
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue