スクリーンセーバーを起動させないスクリプト

以前、はてブを見ていたら、こんなのがあり

togetter.com

その中に

指定した時間間隔でSHIFTキーだけ入力する、とかっていうのをVBスクリプトで作れます。使う環境で、SHIFTキー押下でスクリーンセーバーが動かないのを確認してからですが。VBスクリプトだからWIndows機ならまず動かないってことは無いし。

— Dimension_Diver(XO) (@Dimension_Diver) 2018年4月1日

というツイートを見たので、実装してみました

Set sh = CreateObject("WScript.Shell")

If WScript.arguments.Count = 0 Then
    sh.Run "cmd /K " & "cscript """ & WScript.ScriptFullName & """ 1", 1
Else
    While True
        sh.SendKeys "+"

        WScript.Sleep 60 * 1000
    Wend
End If