Voor het instellen van een blanco screensaver voor de huidige en de default user.
<code vb>
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
</code>

Bron voor idee:[[http://www.petri.co.il/forums/showthread.php?t=5952&page=3|Petri.co.il forums - Lock computer after 10 minutes?]] \\