Retornar IP

Question

Boa tarde a todos,

Depois de muito tempo sem programar (desde o VB6), resolvi dar uma mexida aqui... Fui direto para o Visual Studio 2012...

Preciso retornar as configurações de IP, Nome da Máquina, Usuário Logado e tempo de logon.

Estou começando pelo IP. Antigamente usava o Winsocks para isso, mas agora com não tenho nem ideia de como fazer, dei uma procurada na internet e encontrei o seguinte código:

   Shared Function GetIPAddress() As String
        Dim oAddr As System.Net.IPAddress
        Dim sAddr As String

        With System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName())
            oAddr = New System.Net.IPAddress(.AddressList(0).Address)
            sAddr = oAddr.ToString
        End With
        GetIPAddress = sAddr
    End Function



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim shostname As String

        'Set string equal to value of System DNS Object value for GetHostName
        'This should be the localhost computer name
        shostname = System.Net.Dns.GetHostName
        MsgBox("Your Machine Name = " & shostname)

        'Call Get IPAddress
        MsgBox("Your IP = " & GetIPAddress())



    End Sub

Inicialmente ele funciona bem, retorna o nome do host e o Ip, porém, só retorna o IP de uma das interfaces de rede. No meu caso, tenho três. Seria interessante que ele retornasse os três...

Alguém sabe como fazer isso?