(Visual Basic 6.0) DNS Query SOA Records

See more DNS Examples

Shows how to perform a DNS query to retrieve SOA records.

Note: This example requires Chilkat v9.5.0.96 or later.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim dns As New ChilkatDns

Dim json As New ChilkatJsonObject
json.EmitCompact = 0

Dim success As Long
success = dns.Query("SOA","x.com",json)
If (success = 0) Then
    Debug.Print dns.LastErrorText
    Exit Sub
End If

Debug.Print json.Emit()

' Sample response.
' Parsing code below..

' {
'   "answer": {
'     "soa": [
'       {
'         "name": "x.com",
'         "ttl": 1800,
'         "mname": "alexia.ns.cloudflare.com",
'         "rname": "dns.cloudflare.com",
'         "serial": -1971124188,
'         "refresh": 10000,
'         "retry": 2400,
'         "expire": 604800,
'         "minttl": 1800
'       }
'     ]
'   }
' }

' Use this online tool to generate parsing code from sample JSON: 
' Generate Parsing Code from JSON

Dim name As String
Dim ttl As Long
Dim mname As String
Dim rname As String
Dim serial As Long
Dim refresh As Long
Dim retry As Long
Dim expire As Long
Dim minttl As Long

Dim i As Long
i = 0
Dim count_i As Long
count_i = json.SizeOfArray("answer.soa")
Do While i < count_i
    json.I = i
    name = json.StringOf("answer.soa[i].name")
    ttl = json.IntOf("answer.soa[i].ttl")
    mname = json.StringOf("answer.soa[i].mname")
    rname = json.StringOf("answer.soa[i].rname")
    serial = json.IntOf("answer.soa[i].serial")
    refresh = json.IntOf("answer.soa[i].refresh")
    retry = json.IntOf("answer.soa[i].retry")
    expire = json.IntOf("answer.soa[i].expire")
    minttl = json.IntOf("answer.soa[i].minttl")
    i = i + 1
Loop