;*************************************************************************************
 ; Set the Logon Screen Saver with a timer (15 minutes) and make it required to enter a password
 ; Kent Dyer - 4/13/02, Originally done on 2/16/00
 ; - 8 July 2002: Added in option to turn on or off the ScreenSaver tab in Display properties
 ;*************************************************************************************
 $hkcu = 'HKEY_CURRENT_USER'
 $hkcus = 'HKEY_CURRENT_USER\SOFTWARE'
 $screensavekey = $hkcu+"\Control Panel\Desktop"
 $sysini = "%Windir%\System.ini"
 $scrsavtab = "Yes" ; - Yes, hide it

 IF $scrsavtab = "Yes"
       ; -- Hide the screensaver tab (can also be done in POLEDIT)
       $poleditkey = $hkcus+"\Microsoft\Windows\CurrentVersion\Policies\System"
       $screensavetab = Readvalue($poleditkey,"NoDispScrSavPage")
       IF $screensavetab <> 1
             $systempol = EXISTKEY($poleditkey)
             IF $systempol <> 0
                   $rc = ADDKEY($poleditkey)
             ENDIF
             $rc = WRITEVALUE($poleditkey,"NoDispScrSavPage","1","REG_DWORD")
       ENDIF
 ENDIF
 ; -- Set the timeout
 IF "900" <> Readvalue($screensavekey,"ScreenSaveTimeOut")
       $rc = WRITEVALUE($screensavekey,"ScreenSaveTimeOut","900","REG_SZ")
 ENDIF
 ; -- Be sure that the screen saver is active
 IF 1 <> Readvalue($screensavekey,"ScreenSaveActive")
       $rc = WRITEVALUE($screensavekey,"ScreenSaveActive","1","REG_SZ")
 ENDIF

 IF "%OS%" = "Windows_NT"
       IF "%windir%\system32\logon.scr" <> Readvalue($screensavekey,"SCRNSAVE.EXE")
             $rc = WRITEVALUE($screensavekey,"SCRNSAVE.EXE","%windir%\system32\logon.scr","REG_SZ")
       ENDIF
 ELSE
       IF "%windir%\System\3DMaze~1.scr" <> ReadProfileString($sysini,"boot","scrnsave.exe")
             $rc = WriteProfileString($sysini,"boot","scrnsave.exe","%windir%\System\3DMaze~1.scr")
       ENDIF
 ENDIF

 IF 1 <> Readvalue($screensavekey,"ScreenSaverIsSecure")
       $rc = WRITEVALUE($screensavekey,"ScreenSaverIsSecure","1","REG_SZ")
 ENDIF
 RETURN


[ 08 July 2002, 18:31: Message edited by: kdyer ]
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's