Resolve Host Names/IP Addresses (VB.NET)

Category:

C#, VB.NET, ASP.NET

Type:

Classes

Difficulty:

Beginning

Author:

Intelligent Solutions Inc.

Version Compatibility: Visual Basic.NET, ASP.NET

More information:

Simple class to convert Host Names to IP addresses and vice versa. Sample usage:

Dim objIP As New clsIP()
        With objIP
            Debug.WriteLine(.GetLocalHostIP)
            Debug.WriteLine(.GetLocalHostName)
            Debug.WriteLine(.HostNameToIP("www.yahoo.com"))
            Debug.WriteLine(.IPToHostName("206.215.148.3"))

        End With

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Imports System.Net Imports System.Net.Dns

Code:

Public Class clsIP
    Public Function GetLocalHostIP() As String
 
        Dim objAddress As IPAddress
        Dim sAns As String

Try

objAddress = New IPAddress( _
         GetHostByName(GetLocalHostName).AddressList(0).Address)
        sAns = objAddress.ToString

Catch ex As Exception
            Debug.WriteLine(ex.Message)
            sAns = ""
        End Try

Return sAns

End Function

Public Function GetLocalHostName() As String
        Return GetHostName()
    End Function

Public Function IPToHostName(ByVal IPAddress As String) _
          As String

Dim objEntry As IPHostEntry
        Dim sAns As String
        Try
            objEntry = Resolve(IPAddress)
            sAns = objEntry.HostName
        Catch ex As Exception

sAns = ""
        End Try

Return sAns

End Function

Public Function HostNameToIP(ByVal Host As String) As String
        Dim objAddress As IPAddress
        Dim sAns As String

Try
            objAddress = New IPAddress(GetHostByName( _
               Host).AddressList(0).Address)
            sAns = objAddress.ToString
        Catch
            sAns = ""
        End Try
        Return sAns

End Function
End Class