Keeping Remote Desktop or Physical machine Active

How to keep Remote Desktop or Physical machine active ,without using any 3rd party tools ?

If you are having only limited access to the computer say in your office it is always best to use 3rd party tool mouse or keyboard simulator which does not require any installation to keep the system active.In many cases , due to some policy even 3rd party tool might be restricted during that case you might have write your own script to keep the machine alive.

Below is a small script which keeps the system active i.e., prevent system from logging off by sending keystrokes (caps key in our case).

Dim i
set oWscript=createobject("Wscript.Shell")
i=0

do until i=1
 oWscript.sendkeys "%({NUMLOCK})"
 Wscript.Sleep 1000
 loop

1. Copy the ablove piece of code in a notepad file and save it as ".vbs"
2. Once double clicked you can see your NUMLOCK LED light in our keyboard going ON and OFF with a gap of 1sec.
3. To kill this process open Task manager and kill process "wscript"