[tips0159.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.Width = 800 objIE.Height = 600 objIE.Top = 0 objIE.Left = 0 Else WScript.Echo "エラー:" & Err.Description End If Set objIE = Nothing