[全画面表示する]

InternetExplorer を全画面で表示し、１０秒後に解除しています。
解除の際には、アドレスバーなどを表示するようにしました。

【ソースコード】

[tips0158.vbs]
Option Explicit
On Error Resume Next

Dim strUrl      ' 表示するページ
Dim objIE       ' IE オブジェクト

strUrl = "http://www.whitire.com/"
Set objIE = WScript.CreateObject("InternetExplorer.Application")
If Err.Number = 0 Then
    objIE.Navigate strUrl
    objIE.Visible = True

    ' 全画面設定
    objIE.FullScreen = True
    WScript.Sleep(10000)

    ' 全画面解除
    objIE.FullScreen = False
    objIE.AddressBar = True     ' アドレスバー
    objIE.MenuBar = True        ' メニューバー
    objIE.StatusBar = True      ' ステータスバー
    objIE.ToolBar = True        ' ツールバー
Else
    WScript.Echo "エラー：" & Err.Description
End If
Set objIE = Nothing