(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.

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

Dim dns As New Chilkat.Dns

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

Dim success As Boolean = 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