Dim objIE
Set objIE = CreateObject("InternetExplorer.Application")
objIE.navigate("http://www.baidu.com/")
objIE.visible=1
Do
Loop Until objIE.ReadyState=4
objIE.Quit
Set objIE = Nothing
参考资料
================================================================================
Windows定时执行asp程序
from: http://www.9enjoy.com/post/232/
原来我是这么做的，假设要运行的网址是：http://www.itlearner.com/task.asp
但在任务计划中不能直接写这个地址，只能选择本机的文件。
于是我新建一个task.htm，这个文件用js跳转到要运行的页面。然后在任务计划中选择task.htm，设定运行时间。
但在实际运行中，发现偶尔它会不执行：（
最近看到一段代码，测试了一下挺有效，方法如下：
DIM IE
SET IE = CREATEOBJECT("INTERNETEXPLORER.APPLICATION")
IE.NAVIGATE("http://www.itlearner.com/task.asp")
IE.VISIBLE=1
'1为显示IE窗口，0为不显示
SET IE = NOTHING
存为task.vbs，然后在任务计划中设置其运行时间，就可以了。
================================================================================
页面下载完自动关闭
from: http://www.9enjoy.com/post/258/
之前写了一篇 Windows定时执行asp程序 ，但发现每次执行完后，IE窗口还留着。几天下来，就一大堆窗口开在那里了。就希望它能执行完后自动关闭。
看了下其代码，
IE.NAVIGATE("http://www.itlearner.com/task.asp")
IE.VISIBLE=1
应该还有其它属性。
搜索加测试了一大段时间，怀疑有半个多小时，终于解决。原来想用查到的DocumentComplete属性，但测试不支持。后来使用ReadyState有效，测试了几种方法，实现了这个功能。以下是执行完毕自动关闭的代码。
DIM IE
SET IE = CREATEOBJECT("INTERNETEXPLORER.APPLICATION")
IE.NAVIGATE("http://www.itlearner.com")
IE.VISIBLE=1
'1为显示IE窗口，0为不显示
Do
Loop Until IE.ReadyState=4
IE.Quit
SET IE = Nothing