search for the term 'screensaver'

then:

$=writevalue("$HKCPCPD","ScreenSaveActive","1","REG_SZ")
$=writevalue("$HKCPCPD","ScreenSaverIsSecure","1","REG_SZ")
$=writevalue("$HKCPCPD","ScreenSaveTimeOut","1800","REG_SZ")
$=writevalue("$HKCPCPD","ScrnSave.exe","%windir%\System32\Logon.scr","REG_SZ")
if existkey("$HKCUSMWCV\Policies\system")<>0
$=addkey("$HKCUSMWCV\Policies\system")
endif
$=writevalue("$HKCUSMWCV\Policies\system","NoDispScrSavPage","1",REG_SZ)
$=writevalue("$HKCUSMWCV\Policies\system","NoDispSettingsPage","1",REG_SZ)
_________________________
How to ask questions the smart way <-----------> Before you ask