Notes

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

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?]] \\