コマンドラインで、サスペンド(スリープ)、ハイバネーション(休止)する。(その６)

suspend.vbs

CreateObject("Shell.Application").ShutdownWindows
Set wShell=CreateObject("WScript.Shell")
Do While Not wShell.AppActivate("Windows のシャットダウン")
  WScript.Sleep 100
Loop
wShell.SendKeys "%w{end}{up}{up}%k"

hibernate.vbs

CreateObject("Shell.Application").ShutdownWindows
Set wShell=CreateObject("WScript.Shell")
Do While Not wShell.AppActivate("Windows のシャットダウン")
  WScript.Sleep 100
Loop
wShell.SendKeys "%w{end}{up}%k"

日本語が送れるSendKeysならもっと確実に選択できるのですが、WScript.ShellのSendKeysは駄目なのです。英語圏は楽にできていいなぁ。
というか、ドロップダウンリストにはユニークなショートカットキーを付けてほしいものです。