Hello,
I need to be able to set a "locking screen saver" for all users on my network. I have copied a couple of scripts that I found but have had no luck with them. I can get the screen saver selected, but it's not activated. Here is the script that I have been using:? "Checking state of Desktop"
ExistKey ("HKEY_CURRENT_USER\Control Panel\Desktop")
If @ERROR = 0
; ? 'Sanity Check, Desktop Key exists"
? "Reading screen saver values"
$SSact =Readvalue("HKEY_CURRENT_USER\Control Panel\Desktop","ScreenSaveActive")
$SSsec =Readvalue("HKEY_CURRENT_USER\Control Panel\Desktop","ScreenSaverIsSecure")
$SStim =Readvalue("HKEY_CURRENT_USER\Control Panel\Desktop","ScreenSaveTimeOut")
$SSexe =Readvalue("HKEY_CURRENT_USER\Control Panel\Desktop","ScrnSave.Exe")
; ? "SSact (REG_SZ) has a value of $ssact (should be 1) "
; ? "SSsec (REG_SZ) has a value of $sssec (should be 1) "
; ? "SStim (REG_SZ) has a value of $sstim (should be 180) "
; ? "SSexe (REG_SZ) has a value of $ssexe (should be logon.scr) "
; ? " "
; ? "Updating Screen saver active flag"
WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop","ScreenSaveActive","1","REG_SZ")
If @ERROR = 0
; ? "Screen Saver Active updated"
else
; ? "Screen Saver Active not updated"
endif
; ? "Updating Screen saver secure flag"
WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop","ScreenSaverIsSecure","1","REG_SZ")
If @ERROR = 0
; ? "Screen Saver Secure updated"
else
; ? "Screen Saver Secure not updated"
endif
; ? "Updating Screen saver timeout flag"
WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop","ScreenSaveTimeOut","180","REG_SZ")
If @ERROR = 0
; ? "Scrren Saver Timeout updated"
else
; ? "Screen Saver Timeout not updated"
endif
; ? "Updating Screen saver image flag"
WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop","SCRNSAVE.EXE","LOGON.SCR","REG_SZ")
If @ERROR = 0
; ? "Screen Saver Image updated"
else
; ? "Screen Saver Image not updated"
endif
else
; ? "Sanity Check, Desktop screensaver key not found"
endif