Overblog Suivre ce blog
Editer l'article Administration Créer mon blog
16 octobre 2007 2 16 /10 /octobre /2007 20:49

Cette fonction permet d'obtenir les adresses IP d'un hôte donné.

Cette fonction nécessite l'import du namespace System.Net et System.Text.

 

Code :

Private Function GetIP(ByVal hostName As String) As String
        Dim localHost As String
        Dim IPHEntry As IPHostEntry
        Dim IPAdd() As IPAddress

        localHost = Dns.GetHostName()

        IPHEntry = Dns.GetHostEntry(hostName)

        IPAdd = IPHEntry.AddressList

        Dim strIp As New StringBuilder

        For i As Integer = 0 To IPAdd.GetUpperBound(0)
            strIp.Append(String.Format("IP Address {0}: {1} ", i, IPAdd(i).ToString) & vbCrLf)
        Next

        Return strIp.ToString
  End Function

Partager cet article

Repost 0
Published by Cyril - dans VB.NET
commenter cet article

commentaires