| Simple 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 | |
Object for simple IP adress and host name resolution, ASP and VB TraceRoute/ping.
© 1996 - 2009 Antonin Foller, Motobit Software | About, Contacts | e-mail: info@pstruh.cz