none
Retornar IP RRS feed

  • Pergunta

  • 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?

     
    domingo, 29 de julho de 2012 17:14

Respostas

  • Veja se isso funciona:

    Shared Function GetIPAddress() As String
            Dim oAddr As System.Net.IPAddress        
    
            With System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName())
                For Each oAddr In .AddressList                
                    MsgBox("Your IP = " & oAddr.ToString)
                Next
            End With
    End Function

    Espero ter ajudado.

    segunda-feira, 30 de julho de 2012 12:06