On Error Resume Next
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = true 'Если в скрытом режиме - false
objIE.Navigate "http://rambler.ru"
While objIE.Busy
WScript.Sleep 200
Wend
WScript.Sleep 60000 'интервал равный 1-ой минуте (пауза)
'objIE.Quit 'Если надо закрыть браузер - сними коментарий в начале строки
Set objIE = Nothing
Wscript.Quit ' -выход
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<title>Refresher</title>
<meta http-equiv="Refresh" content="5; URL=" />