会社支給PCの自動ロックを無効にするVBスクリプト

purupuru.vbs

Set sh = CreateObject("WScript.Shell")

dim runMsg
runMsg = "Run PuruPuru"
wscript.echo runMsg

If WScript.arguments.Count = 0 Then
    sh.Run "cmd /K " & "cscript """ & WScript.ScriptFullName & """ 1", 1
Else
    While True
        sh.SendKeys "+" 'Shiftキーを押す
        wscript.echo runMsg

        '60秒待つ
        WScript.Sleep 60 * 1000
    Wend
End If