"こんなプログラムを書いてみました。 適当なファイル名で拡張子をVBSとして保存してください。 Option Explicit Dim shell, i Set shell =..."

こんなプログラムを書いてみました。

適当なファイル名で拡張子をVBSとして保存してください。

Option Explicit
Dim shell, i
Set shell = CreateObject("WScript.Shell")
shell.Run("rundll32.exe shell32.dll,Options_RunDLL 1")
Do Until shell.AppActivate("タスク バー")
  Wscript.Sleep 100
  If i > 10 Then Wscript.Quit
  i = i + 1
Loop
shell.Sendkeys("%U{ENTER}")

仕掛けとしては、タスクバーのプロパティを開いて、「自動的に隠す」の設定ON/OFF切り替えて、プロパティを閉じています。

開いているウィンドウが多いと、切替に時間がかかることがあります。