⌨️

スクリーンセーバーを回避する5行

2022/04/15に公開

キーボードの自動操作でスクリーンセーバーを回避する

付与されたWindowsパソコン、スクリーンセーバーが強制されてOFF設定ができない
そんなときは次の5行を「~~.vbs」に保存して実行すると、頑張ってくれます。

※ジョークソフトとして検知される環境もあり、情シス系部門から説明を求められたりしますので、事前にそれらしい業務の改善案でやっていたなど、もっともらしい（言い訳じゃなく）ストーリーを考えておいてください！！

実行前に、キーボードの alt + shift + tabを自分で操作して
画面切り替えを実行させて、最後に見たタスクに切り替わるか試してください。
webで調べものしていたり、エクセルやワードで何らかの作業しておいて、
それらの画面に切り替わるようであれば事前の動作確認OKです。

Set obShl = WScript.CreateObject("WScript.Shell")
Do
   WScript.Sleep 3*60*1000
   obShl.SendKeys "%+{TAB}"
Loop

タスクマネージャーから下記を終了させてください