Dim AddressList() As IPAddress = Dns.GetHostByName(Dns.GetHostName( _
      )).AddressList
        Dim IP As IPAddress
 
        For k As Integer = 0 To AddressList.Length
            Me.Liste(k + 1, 1) = IP.ToString
        Next
 
        Dim pcname As String
        pcname = Dns.GetHostName
        For l As Integer = 0 To AddressList.Length - 1
            Me.Liste(l + 1, 2) = pcname.ToString
        Next

mfg
rt