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
Dim queryParams As New ChilkatJsonObject
success = queryParams.UpdateString("roomMaintenanceStatus","All")
http.SetRequestHeader "x-app-key","{{AppKey}}"
http.SetRequestHeader "x-hotelid","{{HotelId}}"
' Adds the "Authorization: Bearer <access_token>" header.
http.AuthToken = "<access_token>"
Dim resp As ChilkatHttpResponse
Set resp = http.QuickRequestParams("GET","https://domain.com/hsk/v0/hotels/{{HotelId}}/rooms/maintenances",queryParams)
If (http.LastMethodSuccess = 0) Then
Debug.Print http.LastErrorText
Exit Sub
End If
Debug.Print resp.StatusCode
Debug.Print resp.BodyStr
Curl Command
curl -G -d "roomMaintenanceStatus=All"
-H "Authorization: Bearer <access_token>"
-H "x-hotelid: {{HotelId}}"
-H "x-app-key: {{AppKey}}"
https://domain.com/hsk/v0/hotels/{{HotelId}}/rooms/maintenances
Postman Collection Item JSON
{
"name": "Find all existing Room Maintenance Requests",
"request": {
"auth": {
"type": "bearer",
"bearer": [
{
"key": "token",
"value": "{{Token}}",
"type": "string"
}
]
},
"method": "GET",
"header": [
{
"key": "x-hotelid",
"value": "{{HotelId}}"
},
{
"key": "x-app-key",
"value": "{{AppKey}}"
}
],
"url": {
"raw": "{{HostName}}/hsk/v0/hotels/{{HotelId}}/rooms/maintenances?roomMaintenanceStatus=All",
"host": [
"{{HostName}}"
],
"path": [
"hsk",
"v0",
"hotels",
"{{HotelId}}",
"rooms",
"maintenances"
],
"query": [
{
"key": "roomMaintenanceStatus",
"value": "All"
}
]
}
},
"response": [
]
}