PC Caffeine

save this as a vbs – runs until you end via taskman or restart…

set wsc = CreateObject("WScript.Shell")
Do
WScript.Sleep (60*1000)
wsc.SendKeys ("{SCROLLLOCK 2}")
Loop