VB.NET

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.

VB.NET

Dim success As Boolean = False

Dim dns As New Chilkat.Dns

Dim json As New Chilkat.JsonObject
json.EmitCompact = False

success = dns.Query("SOA","x.com",json)
If (success = False) Then
    Debug.WriteLine(dns.LastErrorText)
    Exit Sub
End If


Debug.WriteLine(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 Integer
Dim mname As String
Dim rname As String
Dim serial As Integer
Dim refresh As Integer
Dim retry As Integer
Dim expire As Integer
Dim minttl As Integer

Dim i As Integer = 0
Dim count_i As Integer = json.SizeOfArray("answer.soa")
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
End While