set wsc = CreateObject("WScript.Shell") Do wsc.SendKeys("{F13}") WScript.Sleep(1*60*1000) Loop
VB script to keep machine from going to sleep
Reply
set wsc = CreateObject("WScript.Shell") Do wsc.SendKeys("{F13}") WScript.Sleep(1*60*1000) Loop