Michel Hofmann cl1ck
ereli
/ gist:a0faf53e417403df8863
Created
April 9, 2015 10:15
prevent screensaver and workstation lockout - vbs script that presses the numlock key twice every 10 seconds
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # ref: http://superuser.com/a/836346 | |
| Dim objResult | |
| Set objShell = WScript.CreateObject("WScript.Shell") | |
| i = 0 | |
| Do While i = 0 | |
| objResult = objShell.sendkeys("{NUMLOCK}{NUMLOCK}") | |
| Wscript.Sleep (10000) |