VBS教程：函数-GetObject 函数

如果对象已注册为单个实例的对象，则无论执行多少次 CreateObject，都只能创建该对象的一个实例。若使用单个实例对象，当使用零长度字符串 ("") 语法调用时，GetObject 总是返回同一个实例，而如果省略 pathname 参数，则会出现错误。

Set oDOM = WScript.GetObject(WScript.Arguments(0))
do until oDOM.readyState = "complete"
WScript.sleep 200
loop
WScript.echo oDOM.documentElement.outerHTML

或

Set oDOM=WScript.GetObject("http://www.ip138.com/ip2city.asp")'就是取得这个对象
Do Until oDOM.readyState="complete" '一直循环等待200ms，直到页面加载完成
WScript.sleep 200'就是等待200ms
Loop
WScript.echo oDOM.documentElement.outerText'取得某个文本，并弹出对话框以显示此消息
Set oDOM=nothing'断开与对象的连接以释放内存。

更多可以参考：
//www.jb51.net/shouce/vbs/115.htm