Script to make windows stop to sleep using VBscript

noSleep.vbs

Dim objWScript : Set objWScript = CreateObject("WScript.Shell")
Dim blnConsole : blnConsole = False
Dim dtmStartedAt : dtmStartedAt = Now()

If InStr(1, WScript.FullName, "cscript", vbTextCompare) Then
    
    blnConsole = True
    
End If

Do

    Call Shout()
    Call WScript.Sleep(5 * 60 * 1000)
    Call objWScript.SendKeys("{NUMLOCK}")

Loop

Set objWScript = Nothing

Function Shout

    If blnConsole Then

        Call WScript.Echo(dtmStartedAt & " ~ " & Now())

    End If

End Function

I recommend using it on a command line tool through cscript, so it is easy to stop by interrupting the run with a Ctrl + C.