VB.Net > Recuperer les adresses IP

Imports System.Net

Function getIP(Optional ByVal adresse As String = "localhost") As String()

        Dim tabIp() As String
        Dim adresseTmp() As IPAddress = Dns.Resolve(adresse).AddressList()
        Dim i As Integer
        If adresseTmp.Length > 0 Then
                tabIp = New String(adresseTmp.Length - 1) {}
                For i = 0 To adresseTmp.Length - 1
                        tabIp(i) = adresseTmp(i).ToString
                Next
        End If

        Return tabIp

End Function