VBScript: Скрипт для имитации присутствия на рабочем месте

Данный скрипт позволяет имитировать присутствие человека за клавиатурой путем периодического включения/выключения Num Lock каждые 30 секунд. Таким образом ОС будет считать, что пользователь работает в данный момент, и не станет переходить в состояния ожидания или блокировать рабочее место:

Dim objResult
Set objShell = WScript.CreateObject("WScript.Shell")   
Do While True
objResult = objShell.SendKeys("{NUMLOCK}{NUMLOCK}")
WScript.Sleep (30000)
Loop