microsoft:scripting:vbscript:scripts:setblankscreensaver
Voor het instellen van een blanco screensaver voor de huidige en de default user.
CONST scrnsaver = "C:\WINDOWS\system32\scrnsave.scr" Set objShell = CreateObject("WScript.Shell") objShell.RegWrite "HKCU\Control Panel\Desktop\SCRNSAVE.EXE", scrnsaver, "REG_SZ" objShell.RegWrite "HKEY_USERS\.DEFAULT\Control Panel\Desktop\SCRNSAVE.EXE", scrnsaver, "REG_SZ" objShell.Run "REG LOAD HKLM\DEFUSER " & chr(34) & "C:\Documents and Settings\Default User\NTUSER.DAT" & chr(34) WScript.Sleep(5000) objShell.RegWrite "HKLM\DEFUSER\Control Panel\Desktop\SCRNSAVE.EXE", scrnsaver, "REG_SZ" objShell.Run "REG UNLOAD HKLM\DEFUSER" Set objShell = Nothing
Bron voor idee:Petri.co.il forums - Lock computer after 10 minutes?
microsoft/scripting/vbscript/scripts/setblankscreensaver.txt · Last modified: 2009/09/17 19:39 by bas