Xojo / MongoDB Atlas / Create Access List Entries for One Organization API Key
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 Chilkat.Http
Dim success As Boolean
http.DigestAuth = True
http.Login = "username"
http.Password = "password"
Dim sbRequestBody As New Chilkat.StringBuilder
success = sbRequestBody.Append("[" + EndOfLine.Unix)
success = sbRequestBody.Append(" {" + EndOfLine.Unix)
success = sbRequestBody.Append(" ""ipAddress"": ""77.54.32.11\EndOfLine.Unix)
success = sbRequestBody.Append(" }" + EndOfLine.Unix)
success = sbRequestBody.Append("]")
Dim resp As Chilkat.HttpResponse
resp = http.PTextSb("POST","https://domain.com/api/atlas/{{version}}/orgs/{{ORG-ID}}/apiKeys/{{API-KEY-ID}}/accessList",sbRequestBody,"utf-8","application/text",False,False)
If (http.LastMethodSuccess = False) Then
System.DebugLog(http.LastErrorText)
Return
End If
System.DebugLog(Str(resp.StatusCode))
System.DebugLog(resp.BodyStr)
Curl Command
curl -X POST
--digest -u 'username:password'
-d '[
{
"ipAddress": "77.54.32.11"
}
]'
https://domain.com/api/atlas/{{version}}/orgs/{{ORG-ID}}/apiKeys/{{API-KEY-ID}}/accessList
Postman Collection Item JSON
{
"name": "Create Access List Entries for One Organization API Key",
"request": {
"method": "POST",
"header": [
],
"body": {
"mode": "raw",
"raw": "[\n {\n \"ipAddress\": \"77.54.32.11\"\n }\n]",
"options": {
"raw": {
"language": "json"
}
}
},
"url": {
"raw": "{{base_url}}/api/atlas/{{version}}/orgs/{{ORG-ID}}/apiKeys/{{API-KEY-ID}}/accessList",
"host": [
"{{base_url}}"
],
"path": [
"api",
"atlas",
"{{version}}",
"orgs",
"{{ORG-ID}}",
"apiKeys",
"{{API-KEY-ID}}",
"accessList"
]
},
"description": "https://docs.atlas.mongodb.com/reference/api/api-access-list/create-api-access-entries/"
},
"response": [
]
}