Below you find a script example on how to resolve A Records via DNS
'Copyright 2005 by www.aloaha.com
'furhter questions please send to info@aloaha.com
or visit our Forum at:
'http://www.aloaha.com/html/portal
'create spf_dns object
Set dns=CreateObject("spf_dns.DNSClass")
'retrieve comma seperated list of A Resource Records
MsgBox dns.get_rr_a_comma("cnn.com")
'destroy object
Set dns=nothing