VBScript

MX Lookup Mail Server Domain by Email Address

How to find the mail server for a given email address. Returns the domain name of the primary mail server. 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

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

set dns = CreateObject("Chilkat.Dns")
set json = CreateObject("Chilkat.JsonObject")

emailAddr = "bob@example.com"

' 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