Chilkat Online Tools

VB6 / Core Services API / GetVcn

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

http.SetRequestHeader "Authorization","{{signature}}"
http.SetRequestHeader "Date","{{date}}"

Dim sbResponseBody As New ChilkatStringBuilder
success = http.QuickGetSb("https://iaas.{{region}}.oraclecloud.com/20160918/vcns/:vcnId",sbResponseBody)
If (success = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Dim jResp As New ChilkatJsonObject
success = jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = 0

Debug.Print "Response Body:"
Debug.Print jResp.Emit()

Dim respStatusCode As Long
respStatusCode = http.LastStatus
Debug.Print "Response Status Code = " & respStatusCode
If (respStatusCode >= 400) Then
    Debug.Print "Response Header:"
    Debug.Print http.LastHeader
    Debug.Print "Failed."
    Exit Sub
End If

' Sample JSON response:
' (Sample code for parsing the JSON response is shown below)

' {
'   "id": "id magna consectetur",
'   "compartmentId": "proident ullamco et non",
'   "cidrBlock": "ut amet la",
'   "lifecycleState": "TERMINATING",
'   "cidrBlocks": [
'     "et",
'     "amet"
'   ],
'   "defaultDhcpOptionsId": "qui officia reprehenderit Ut",
'   "defaultRouteTableId": "nulla incididunt exercitation fugiat",
'   "defaultSecurityListId": "eiusmod sint aliqua",
'   "definedTags": {},
'   "displayName": "in",
'   "dnsLabel": "qui cupida",
'   "freeformTags": {},
'   "ipv6CidrBlock": "aute Excepteur",
'   "ipv6PublicCidrBlock": "dolore ex dolor Lorem adipisicing",
'   "timeCreated": "1985-03-26T20:05:22.459Z",
'   "vcnDomainName": "ex laborum magna"
' }

' Sample code for parsing the JSON response...
' Use this online tool to generate parsing code from sample JSON: Generate JSON Parsing Code

Dim strVal As String

Dim id As String
id = jResp.StringOf("id")
Dim compartmentId As String
compartmentId = jResp.StringOf("compartmentId")
Dim cidrBlock As String
cidrBlock = jResp.StringOf("cidrBlock")
Dim lifecycleState As String
lifecycleState = jResp.StringOf("lifecycleState")
Dim defaultDhcpOptionsId As String
defaultDhcpOptionsId = jResp.StringOf("defaultDhcpOptionsId")
Dim defaultRouteTableId As String
defaultRouteTableId = jResp.StringOf("defaultRouteTableId")
Dim defaultSecurityListId As String
defaultSecurityListId = jResp.StringOf("defaultSecurityListId")
Dim displayName As String
displayName = jResp.StringOf("displayName")
Dim dnsLabel As String
dnsLabel = jResp.StringOf("dnsLabel")
Dim ipv6CidrBlock As String
ipv6CidrBlock = jResp.StringOf("ipv6CidrBlock")
Dim ipv6PublicCidrBlock As String
ipv6PublicCidrBlock = jResp.StringOf("ipv6PublicCidrBlock")
Dim timeCreated As String
timeCreated = jResp.StringOf("timeCreated")
Dim vcnDomainName As String
vcnDomainName = jResp.StringOf("vcnDomainName")
Dim i As Long
i = 0
Dim count_i As Long
count_i = jResp.SizeOfArray("cidrBlocks")
Do While i < count_i
    jResp.I = i
    strVal = jResp.StringOf("cidrBlocks[i]")
    i = i + 1
Loop

Curl Command

curl -X GET
	-H "Date: {{date}}"
	-H "Authorization: {{signature}}"
https://iaas.{{region}}.oraclecloud.com/20160918/vcns/:vcnId

Postman Collection Item JSON

{
  "name": "GetVcn",
  "request": {
    "method": "GET",
    "header": [
      {
        "key": "Date",
        "value": "{{date}}",
        "description": "(Required) Current Date",
        "type": "text"
      },
      {
        "key": "Authorization",
        "value": "{{signature}}",
        "description": "(Required) Signature Authentication on Authorization header",
        "type": "text"
      }
    ],
    "url": {
      "raw": "{{baseUrl}}/vcns/:vcnId",
      "host": [
        "{{baseUrl}}"
      ],
      "path": [
        "vcns",
        ":vcnId"
      ],
      "variable": [
        {
          "key": "vcnId",
          "value": "amet ut",
          "description": "(Required) The [OCID](/iaas/Content/General/Concepts/identifiers.htm) of the VCN."
        }
      ]
    },
    "description": "Gets the specified VCN's information."
  },
  "response": [
    {
      "name": "The VCN was retrieved.",
      "originalRequest": {
        "method": "GET",
        "header": [
        ],
        "url": {
          "raw": "{{baseUrl}}/vcns/:vcnId",
          "host": [
            "{{baseUrl}}"
          ],
          "path": [
            "vcns",
            ":vcnId"
          ],
          "variable": [
            {
              "key": "vcnId"
            }
          ]
        }
      },
      "status": "OK",
      "code": 200,
      "_postman_previewlanguage": "json",
      "header": [
        {
          "key": "etag",
          "value": "officia sed",
          "description": "For optimistic concurrency control. See `if-match`.\n"
        },
        {
          "key": "opc-request-id",
          "value": "officia sed",
          "description": "Unique Oracle-assigned identifier for the request. If you need to contact\nOracle about a particular request, please provide the request ID.\n"
        },
        {
          "key": "Content-Type",
          "value": "application/json"
        }
      ],
      "cookie": [
      ],
      "body": "{\n \"id\": \"id magna consectetur\",\n \"compartmentId\": \"proident ullamco et non\",\n \"cidrBlock\": \"ut amet la\",\n \"lifecycleState\": \"TERMINATING\",\n \"cidrBlocks\": [\n  \"et\",\n  \"amet\"\n ],\n \"defaultDhcpOptionsId\": \"qui officia reprehenderit Ut\",\n \"defaultRouteTableId\": \"nulla incididunt exercitation fugiat\",\n \"defaultSecurityListId\": \"eiusmod sint aliqua\",\n \"definedTags\": {},\n \"displayName\": \"in\",\n \"dnsLabel\": \"qui cupida\",\n \"freeformTags\": {},\n \"ipv6CidrBlock\": \"aute Excepteur\",\n \"ipv6PublicCidrBlock\": \"dolore ex dolor Lorem adipisicing\",\n \"timeCreated\": \"1985-03-26T20:05:22.459Z\",\n \"vcnDomainName\": \"ex laborum magna\"\n}"
    },
    {
      "name": "Unauthorized",
      "originalRequest": {
        "method": "GET",
        "header": [
        ],
        "url": {
          "raw": "{{baseUrl}}/vcns/:vcnId",
          "host": [
            "{{baseUrl}}"
          ],
          "path": [
            "vcns",
            ":vcnId"
          ],
          "variable": [
            {
              "key": "vcnId"
            }
          ]
        }
      },
      "status": "Unauthorized",
      "code": 401,
      "_postman_previewlanguage": "json",
      "header": [
        {
          "key": "opc-request-id",
          "value": "officia sed",
          "description": "Unique Oracle-assigned identifier for the request. If you need to contact\nOracle about a particular request, please provide the request ID.\n"
        },
        {
          "key": "Content-Type",
          "value": "application/json"
        }
      ],
      "cookie": [
      ],
      "body": "{\n \"code\": \"et exercitation Excepteur\",\n \"message\": \"irure sit\"\n}"
    },
    {
      "name": "Not Found",
      "originalRequest": {
        "method": "GET",
        "header": [
        ],
        "url": {
          "raw": "{{baseUrl}}/vcns/:vcnId",
          "host": [
            "{{baseUrl}}"
          ],
          "path": [
            "vcns",
            ":vcnId"
          ],
          "variable": [
            {
              "key": "vcnId"
            }
          ]
        }
      },
      "status": "Not Found",
      "code": 404,
      "_postman_previewlanguage": "json",
      "header": [
        {
          "key": "opc-request-id",
          "value": "officia sed",
          "description": "Unique Oracle-assigned identifier for the request. If you need to contact\nOracle about a particular request, please provide the request ID.\n"
        },
        {
          "key": "Content-Type",
          "value": "application/json"
        }
      ],
      "cookie": [
      ],
      "body": "{\n \"code\": \"et exercitation Excepteur\",\n \"message\": \"irure sit\"\n}"
    },
    {
      "name": "Internal Server Error",
      "originalRequest": {
        "method": "GET",
        "header": [
        ],
        "url": {
          "raw": "{{baseUrl}}/vcns/:vcnId",
          "host": [
            "{{baseUrl}}"
          ],
          "path": [
            "vcns",
            ":vcnId"
          ],
          "variable": [
            {
              "key": "vcnId"
            }
          ]
        }
      },
      "status": "Internal Server Error",
      "code": 500,
      "_postman_previewlanguage": "json",
      "header": [
        {
          "key": "opc-request-id",
          "value": "officia sed",
          "description": "Unique Oracle-assigned identifier for the request. If you need to contact\nOracle about a particular request, please provide the request ID.\n"
        },
        {
          "key": "Content-Type",
          "value": "application/json"
        }
      ],
      "cookie": [
      ],
      "body": "{\n \"code\": \"et exercitation Excepteur\",\n \"message\": \"irure sit\"\n}"
    },
    {
      "name": "An error has occurred.",
      "originalRequest": {
        "method": "GET",
        "header": [
        ],
        "url": {
          "raw": "{{baseUrl}}/vcns/:vcnId",
          "host": [
            "{{baseUrl}}"
          ],
          "path": [
            "vcns",
            ":vcnId"
          ],
          "variable": [
            {
              "key": "vcnId"
            }
          ]
        }
      },
      "status": "Internal Server Error",
      "code": 500,
      "_postman_previewlanguage": "json",
      "header": [
        {
          "key": "opc-request-id",
          "value": "officia sed",
          "description": "Unique Oracle-assigned identifier for the request. If you need to contact\nOracle about a particular request, please provide the request ID.\n"
        },
        {
          "key": "Content-Type",
          "value": "application/json"
        }
      ],
      "cookie": [
      ],
      "body": "{\n \"code\": \"et exercitation Excepteur\",\n \"message\": \"irure sit\"\n}"
    }
  ]
}