VB6 / Cognite API v1 / Create service accounts
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
' Use this online tool to generate code from sample JSON: Generate Code to Create JSON
' The following JSON is sent in the request body.
' {
' "items": [
' ]
' }
Dim json As New ChilkatJsonObject
success = json.UpdateNewArray("items")
http.SetRequestHeader "content-type","application/json"
http.SetRequestHeader "api-key","{{api-key}}"
Dim resp As ChilkatHttpResponse
Set resp = http.PostJson3("https://domain.com/api/v1/projects/{{project}}/serviceaccounts","application/json",json)
If (http.LastMethodSuccess = 0) Then
Debug.Print http.LastErrorText
Exit Sub
End If
Debug.Print resp.StatusCode
Debug.Print resp.BodyStr
Curl Command
curl -X POST
-H "api-key: {{api-key}}"
-H "content-type: application/json"
-d '{
"items": []
}'
https://domain.com/api/v1/projects/{{project}}/serviceaccounts
Postman Collection Item JSON
{
"id": "createServiceAccounts",
"name": "Create service accounts",
"request": {
"url": {
"host": "{{baseUrl}}",
"path": [
"api",
"v1",
"projects",
"{{project}}",
"serviceaccounts"
],
"query": [
],
"variable": [
]
},
"method": "POST",
"header": [
{
"key": "api-key",
"value": "{{api-key}}",
"description": "An admin can create API keys in the Cognite console."
},
{
"key": "content-type",
"value": "application/json"
}
],
"description": "Creates new service accounts with the given names and group memberships.\nThe names of the service accounts have to be unique.\nIf any of the provided group IDs are not valid group IDs, the request will fail and no service accounts will be created.\n",
"body": {
"mode": "raw",
"raw": "{\n \"items\": []\n}"
}
}
}