Option Explicit

Private Const OPEN_NEW_TAB = &H800
Private Const OPEN_BACKGROUND_TAB = &H1000

' shellオブジェクトの生成
Dim shell
Set shell = CreateObject("Shell.Application")

' ウェブページにアクセス
Dim count
count = shell.Windows.Count
If count=0 Then
    Call shell.Windows.Item.Navigate2("http://engineer.gjpw.net/")
    count = 1
Else
    Call shell.Windows.Item.Navigate2("http://engineer.gjpw.net/", OPEN_NEW_TAB)
End If
Call WScript.Sleep(1000)

' ieオブジェクトを取得
Dim ie
Set ie = shell.Windows.Item(count)

' ウェブページの読み込み完了まで待つ
Do Until ie.Busy = False
    WScript.sleep(500)
Loop

' ieの終了
ie.Quit

Set ie = Nothing
Set shell = Nothing

ソースを「ie7.vbs」という名前で保存し、ダブルクリック

Option Explicit

' ieオブジェクトの生成
Dim ie
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True

' ウェブページにアクセス
ie.Navigate("http://engineer.gjpw.net/")

' ウェブページの読み込み完了まで待つ
Do Until ie.Busy = False
    WScript.sleep(500)
Loop

' ieの終了
ie.Quit

Set ie = Nothing

ソースを「ie6.vbs」という名前で保存し、ダブルクリック