VBScript

Transition from MailMan.MxLookup to Dns.Query

Provides instructions for replacing deprecated MxLookup method calls with the Chilkat Dns class. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set mailman = CreateObject("Chilkat.MailMan")

' ...
' ...

emailAddr = "joe@example.com"

' ------------------------------------------------------------------------
' The MxLookup method is deprecated:

domain = mailman.MxLookup(emailAddr)
If (mailman.LastMethodSuccess = 0) Then
    outFile.WriteLine(mailman.LastErrorText)
    WScript.Quit
End If

' ------------------------------------------------------------------------
' Do the equivalent using the Chilkat DNS class

set dns = CreateObject("Chilkat.Dns")

set json = CreateObject("Chilkat.JsonObject")

' This gets all MX domains for an email address.  (Typically one domain.)
' The preferred domain will be at index 0 (see below).
success = dns.Query("MX",emailAddr,json)
If (success = 0) Then
    outFile.WriteLine(dns.LastErrorText)
    WScript.Quit
End If

i = 0
count_i = json.SizeOfArray("answer.mx")
Do While i < count_i
    json.I = i
    domain = json.StringOf("answer.mx[i].domain")
    outFile.WriteLine(domain)
    i = i + 1
Loop

outFile.Close