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

834 ワード

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

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

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

プログラム内の説明

  • "%+{TAB}"は、キーボードの alt + shift + tab
  • WScript.Sleepの3*60*1000は、ミリ秒単位なので3分毎待機します

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

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

止め方

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

  • Microsoft Windows Based Script Host