[ウィンドウを最小化／解除する]

表示中のウィンドウを最小化します。
３秒後に、元の状態に戻します。

【ソースコード】

[tips0131.vbs]
Option Explicit
On Error Resume Next

Dim objShell        ' Shell オブジェクト

Set objShell = WScript.CreateObject("Shell.Application")
If Err.Number = 0 Then
    objShell.MinimizeAll
    WScript.Echo "ウィンドウを最小化しました。"

    WScript.Sleep 3000
    objShell.UndoMinimizeAll
    WScript.Echo "ウィンドウを元に戻しました。"
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objShell = Nothing

【実行結果】

C:\> cscript //NoLogo tips0131.vbs
ウィンドウを最小化しました。
ウィンドウを元に戻しました。