VBScript: A script to simulate a presence in the workplace

This script allows you to simulate the presence of a person at the keyboard by periodically turning on/off "Num Lock" every 30 seconds. Thus, the OS will consider that the user is working at the moment, and will not go into standby mode or block the desktop:

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