How to fetch x-csrf-token from Excel using VBA

[graphiomaniac]

Hi Experts,

I am trying to fetch x-csrf-token so that I could use it in subsequent calls. My script looks like below

Sub ExternalTrigger_Click()
Dim response As String
Set objHTTP = CreateObject("MSXML2.XMLHTTP")

Url = "XXXXXXXXXX"
username1 = "XXXXX"
password1 = "XXXXX"
objHTTP.Open "GET", Url, False, username1, password1
objHTTP.setRequestHeader "x-csrf-token", "fetch"
objHTTP.send ("")
response = objHTTP.GetResponseHeader("x-csrf-token")
MsgBox response

End Sub

However, I am getting an empty message box. I tried to check all response header with getAllResponseHeaders() and I couldn't find x-csrf-token listed. However, it does exist in header as I was able to fetch it using POSTMAN.
Please suggest how to get x-csrf-token from Excel using VBA script.

Regards,

 

[Dan_W]

Two things spring to mind:

(1) is this the correct way of authenticating your credentials? I know that you can pass the username/password details with the .Open method, but with the APIs I used, I've always had to put them in as a request header.
(2) are there no other request headers you might need to provide? User-agent string?

Are there any differences between the data being sent by Postman and by you?