一、使用wscript.shell运行ping或者nslookup命令获取已知域名的服务器的IP。

<%if request("name")<>“” then response.write server.createobject(“wscript.shell”).exec(server.mappath(“nslookup.exe”)&” “&request.form(“name”)).stdout.readall%>

虽然wscript.shell组件可用。上面的代码刚开始在我电脑上测试时通过不过。
将c:\windows\system32下nslookup复制到asp文件的目录下，可以了。

方法二、使用TCPIP.DNS组件

<%Set DNS=CreateObject("TCPIP.DNS")
IP=DNS.GetIPByHost("www.baizoo.cn")%>

下载：TCPIP.DNS组件
需要注意的一点：双击安装组件的时候，默认是安装在系统盘，比如”C:\Program Files\PSTRUH\TCPIP\”，这里不要修改，否则可能无法使用。

这个优惠码有$1.05的优惠呢，发出来共享一下：
Enter promotion code IPANEMA for $7.95 .COM domains!

原文地址：Name.com Promo Code: Exclusive $1.50 Off .COM Domain Registration