A simple vbs to prevent your PC from policy screen lock

caffeine.ps1

Add-Type -AssemblyName System.Windows.Forms
New-Variable -name INTERVAL -Value (60 * 2) -Option Constant -Description 'for 5mins lock default'
get-date
echo `start`
while ($true) {
    $key = '{SCROLLLOCK}'
    get-date
    echo  "press key $key`n"
    try {
        [System.Windows.Forms.SendKeys]::SendWait($key)
        [System.Windows.Forms.SendKeys]::SendWait($key)
    }
    catch {
        Write-Host "An error occurred:"
        Write-Host $_
        Write-Host $_.ScriptStackTrace
    }
    sleep -s $INTERVAL
}

caffeine.vbs

Dim objResult

Set objShell = WScript.CreateObject("WScript.Shell")    

Do While True
  Wscript.Sleep(3000)
  objResult = objShell.sendkeys("{SCROLLLOCK}")
  Wscript.Sleep(100)
  objResult = objShell.sendkeys("{SCROLLLOCK}")
  Wscript.Sleep(100)
  objResult = objShell.sendkeys("{SCROLLLOCK}")
  Wscript.Sleep(100)
  objResult = objShell.sendkeys("{SCROLLLOCK}")
Loop