[tips0154.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 Else WScript.Echo "エラー:" & Err.Description End If Set objIE = Nothing