'This Script uses Aloaha's free SPFDNS Library to retrieve a DNS RR MX Record
'The SPFDNS can be downloaded from http://www.aloaha.com/download/spfdns.zip
'Please note that you need build 3.0.34 to use this function
'More information regarding this object you find on:
'http://www.aloaha.com/download/spfdns.txt

'create spf_dns object
Set dns=CreateObject("spf_dns.DNSClass")

'retrieve comma seperated list of MX Resource Records
MsgBox dns.get_rr_mx_comma("cnn.com")

'destroy object
Set dns=nothing



'Please check also:
'http://www.aloaha.com/download/nslookup_a.txt