IEも動かせる

Const BROWSER_WIDTH  = 600
Const BROWSER_HEIGHT = 400
Const BROWSER_INIT_X = 10
Const BROWSER_INIT_Y = 10

Const csTitlePostfix=" - Microsoft Internet Explorer"
Const clSleep = 400
Const url = "http://www.hatena.ne.jp/"

Dim ie, shell, i
Set shell=CreateObject("WScript.Shell")

Call ieTest()

Set ie    = Nothing
Set shell = Nothing


Sub ieTest()
  
  '---IEの起動
  Set ie=CreateObject("InternetExplorer.Application")

  '---ウィンドウサイズの表示調整
  ie.Width  = BROWSER_WIDTH
  ie.Height = BROWSER_HEIGHT
  ie.Left   = BROWSER_INIT_X
  ie.Top    = BROWSER_INIT_Y
  
  '---表示
  ie.Visible=True
  
  '---ブラウザ上で開く
  ie.Navigate url
  
  '---読み込み完了まで待ち
  Do Until ie.Busy = False
    WScript.Sleep clSleep
  Loop
  
  '---アクティブ化
  Dim sTitle
  sTitle=ie.Document.Title & csTitlePostfix
  shell.AppActivate sTitle
  
  '---読み込み完了まで待ち
  Do Until ie.Busy = False
    WScript.Sleep clSleep
  Loop
  
  WScript.Sleep clSleep
  '---ブラウザを閉じる
  ie.Quit

End Sub