小狼的天空

On Error Resume Next
strURL = "http://www.microsoft.com/technet/scriptcenter/default.mspx"
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
objHTTP.Open "GET", strURL, FALSE
objHTTP.Send
Wscript.Echo(objHTTP.statusText)

我们首先将“脚本中心”的 URL 赋给名为 strURL 的变量。接着我们创建了一个实例 MSXML2.XMLHTTP，该实例是一个 COM 对象，它为客户机与 HTTP 服务器的交互提供了一种方法。然后我们调用 Open 方法，向其传递三个参数：GET（指从服务器检索信息）、strURL（保存“脚本中心”主页 URL 的变量）和 FALSE（使调用同步）。之后，我们使用 Send 方法将我们的请求发送到 HTTP 服务器。

那么我们如何知道 http://www.microsoft.com/technet/scriptcenter/default.mspx 是否可访问呢？只需检查 statusText 属性的值即可。如果 statusText 是 OK，则页面可访问；如果不是 OK，则说明某些地方出错了，我们无法访问指定的 URL。

顺便提一句，网页的内容是作为 MSXML2.XMLHTTP 对象的 ResponseText 属性返回的。这意味着您可以使用 FileSystem 对象将页面的内容保存到文件中。例如：

On Error Resume Next
Const ForWriting = 2
strURL="http://www.microsoft.com/technet/scriptcenter/default.mspx"
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
objHTTP.Open "GET", strURL, FALSE
objHTTP.Send
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("script_center.htm", ForWriting)
objFile.Write objHTTP.ResponseText
objFile.Close

请记住，保存后的文档的格式可能与网页的格式不同，这取决于以下情况：网页使用的是什么样式表，页面使用的是图形的相对链接还是绝对链接等。不过大多数情况下，即使格式有点缺漏，页面也可读。