命令行方式读取WEB页面

view-webrun.vbs
dim URL, oArgs    
2    
3 Set oArgs = WScript.Arguments    
4    
5 if oArgs.Count = 0 then    
6 msgbox("错误：必须有URL")    
7 wscript.quit 1    
8 end if    
9    
10 URL = oArgs(0)    
11    
12 on error resume next    
13 Set objXML = CreateObject("MSXML2.ServerXMLHTTP")    
14    
15 if err then    
16 msgbox("Error: " & err.description)    
17 wscript.quit 1    
18 end if    
19    
20 ' 连接远程机器并取回页面内容
21 objXML.open "GET", URL, False    
22    
23 objXML.send()    
24    
25 ' 返回结果
26 msgbox objXML.responSetext    
27    
28 ' 清场
29 Set objXML = Nothing