Unfortunatly windows has out of the box no reliable and scriptable DNS APIs.
Below you find some examples on how to use Aloaha SPAM Rejector or the Aloaha SPF SDK to script your DNS lookups.
'create spf_dns object
Set dns=CreateObject("spf_dns.DNSClass")
'retrieve reverse lookup record
MsgBox dns.PTR_Query("217.160.205.164")
'retrieve comma seperated list of MX Resource Records
MsgBox dns.get_rr_mx_comma("cnn.com")
'retrieve comma seperated list of A Resource Records
MsgBox dns.get_rr_a_comma("cnn.com")
'destroy object
Set dns=nothing
Please note that spfdns.dll is a COM Object and needs to be registered in case you use the stand alone dll. Redistribution and commercial use of our SPF SDK is prohibited without valid license!