リモート デスクトップ接続は開いた後、詳細画面が表示されないので、ALT+O を送り、その後 SHIFT+TAB でタブを選択して、右矢印で次のタブに移動させます。![]()
![]()
![]()
Set WshShell = CreateObject("WScript.Shell") WshShell.Run( "mstsc.exe" ) WScript.Sleep(500) WshShell.AppActivate("リモート デスクトップ接続") WScript.Sleep(500) ' キーストロークを送信 WshShell.SendKeys ("%O") WScript.Sleep(500) WshShell.SendKeys ("+{TAB}") WScript.Sleep(500) WshShell.SendKeys ("{RIGHT}")
※ キーストロークの送信は環境や状況によっては、うまく動作しないかもしれません。その場合は適宜変更して下さい(キーストローク詳細)
タグ:VBScript
【VBScript関連のカテゴリ】