Script Vb para impedir a tela de bloqueio do computador

Dim durationInMins
Set obj = CreateObject ("WScript.Shell")

durationInMins = 300

Para i = 1 para durationInMins
 WScript.Sleep (2 * 60 * 1000)
 obj.SendKeys ("{CAPSLOCK 2}")
Avançar