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?