Excel 如何刮取HTTP头？（重定向URL？）

我在浏览器中安装了一个附加组件，它可以让我查看Firefox和web服务器上来回的所有HTTP头

这是我使用过的一个简单代码：

Set WinHttpReq = CreateObject("MSXML2.ServerXMLHTTP")
WinHttpReq.Open "GET", "Initial_URL.com", False
WinHttpReq.Send

以下是获得的http标头：

https://Initial_URL.com
Host: Initial_URL.com
User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:56.0) Gecko/20100101 Firefox/56.0
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: en-US,en;q=0.5
GET: HTTP/1.1 302 Moved Temporarily
content-length: 2361
content-type: text/html

date: Wed, 09 Jan 2019 19:46:06 GMT
location: Redirected_to.com
Set-Cookie: PD-S-SESSION-ID=1_2_0_ud2NmPnh++62VQCPVkwxb8xp0wuMBDhqmfZiqltbPrgksUAf; 

头的第一部分是HTTP头发送到服务器的内容，然后是来自服务器的应答

我需要获取其中一些字段（例如位置、设置Cookie）。 我已经解析了WinHttpReq.ResponseText，但它是纯HTTP代码，根本没有头。

---

有什么指导吗？

如果需要标题信息，可以通过

getAllResponseHeaders

方法获得

下面是一个小演示：

Sub GetHeaders()
    Dim headers As String
    
    With CreateObject("MSXML2.ServerXMLHTTP")
        .Open "GET", "https://stackoverflow.com/questions/54118535/excel-vba-how-to-scrape-the-http-header-webserver-answer-redirect-url"
        .send
        headers = .getAllResponseHeaders
        Debug.Print headers
    End With
End Sub

---

提交web请求后运行

getAllResponseHeaders

方法。它应该返回一个带有标题信息的字符串。谢谢Ryan，这正是我要找的！！！非常感谢！！！