Keep system awake forever

 On every two seconds, this does the job of pressing WIN key

Do
Set v= CreateObject("WScript.Shell")
v.SendKeys "^{ESC}"
Set v= nothing
WScript.sleep 2000
Loop