Simple ip/host resolution

Examples

Simple ip/host resolution
Set DNS = CreateObject("TCPIP.DNS") On Error Resume Next ip = DNS.GetIPByHost("www.microsoft.com") host = DNS.GetHostByIP(ip) If Err <> 0 Then 'some dns error - host not found, ... End If On Error Goto 0

Set DNS = CreateObject("TCPIP.DNS")
On Error Resume Next
ip = DNS.GetIPByHost("www.microsoft.com")
host = DNS.GetHostByIP(ip)
If Err <> 0 Then
  'some dns error - host not found, ...
End If
On Error Goto 0

Other links for Simple ip/host resolution

Simple DNS+Traceroute

Object for simple IP adress and host name resolution, ASP and VB TraceRoute/ping.