何がしかの理由で解除できないスクリーンセーバーが起動されてしまうことが、稀に都合が悪い時があります。大体、スクリーンセーバーを解除するときにアカウント情報を入力しないといけないので本人以外の人が元に戻せないことを回避したい時ではないかと思います。

そんな時に回避する仕掛けメモ

ファイル名：sendkey.vbs
--------------------------------------
Dim wsh
Set wsh = CreateObject("WScript.Shell")

while 1
wscript.sleep 300000
wsh.Sendkeys("\")
wend
--------------------------------------
5分おきに、\キーが送られます。エディタなどにフォーカスがあると\が入力されるので、処理としては非常にイマイチです。

作成したスクリプトをダブルクリックすると実行されます。
タスクマネージャに「wscript」が存在していたら動作中です。

終了する場合は昔のVBScriptウイルスさながら、タスクマネージャでWScriptを強制終了させることで終わります。

他に良い手があったら教えてください。