Back to Collection Items
' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
Dim http As New ChilkatHttp
Dim success As Long
' Adds the "Authorization: Bearer {{partner_token}}" header.
http.AuthToken = "{{partner_token}}"
http.SetRequestHeader "X-Elli-PAT","{{origin_access_token}}"
Dim sbResponseBody As New ChilkatStringBuilder
success = http.QuickGetSb("https://domain.com/",sbResponseBody)
If (success = 0) Then
Debug.Print http.LastErrorText
Exit Sub
End If
Debug.Print "Response status code = " & http.LastStatus
Debug.Print sbResponseBody.GetAsString()
Curl Command
curl -X GET
-H "Authorization: Bearer {{partner_token}}"
-H "X-Elli-PAT: {{origin_access_token}}"
https://domain.com/
Postman Collection Item JSON
{
"name": "[Partner] Get Origin",
"_postman_id": "7d3f784a-57c5-4a52-b4df-45814cc695d3",
"request": {
"method": "GET",
"header": [
{
"key": "Authorization",
"value": "Bearer {{partner_token}}",
"type": "text"
},
{
"key": "X-Elli-PAT",
"value": "{{origin_access_token}}",
"type": "text"
}
],
"url": "{{api_host}}/partner/v2/origins/{{origin_id}}"
},
"response": [
]
}