Set html = CreateObject("htmlfile")
Set http = CreateObject("Msxml2.ServerXMLHTTP")

html.designMode = "on" ' 開啟編輯模式

http.open "GET", "http://www.cnblogs.com/", False
http.send
strHtml = http.responseText

html.write strHtml ' 寫入數(shù)據(jù)
Set post_list = html.getElementById("post_list")
For Each el In post_list.children
  WScript.Echo el.getElementsByTagName("a")(0).innerText
Next