Vb.net WinForm IP segun Nombre del pc en la red

[damid3]

Wenas de nuevo

Necesito saber el ip de una maquina en la red el cual tengo el nombre

para saber el nombre uso el siguiente codigo

Código vb:

Public Sub GetPConNetWord()
        Dim root As New DirectoryEntry("WinNT:")
        Dim parent As DirectoryServices.DirectoryEntries
        parent = root.Children
        Dim d As DirectoryEntries = parent
        For Each complist As DirectoryEntry In parent
            For Each c As DirectoryEntry In complist.Children
                If (c.Name <> "Schema") Then
                    cbmac.Items.Add(c.Name)
                End If
            Next
        Next
    End Sub
 

la idea es que cuando seleccionen uno en el combobox (cbmac) salga un msjbox con la ip


Saludos

[juan85]

Hola mira lo que yo hago para obtener la ip del equipo:

Código:

Function ObtenerIpLocal() As String
        '-------------------------------------------------------------------------------------------
        'Descripción: <Obtener la IP del equipo local>
        'Parámetros:  <Ninguno>
        'Regresa:     <La direccion IP en forma de cadena>
        'Fecha:       <06/12/07>
        'Programación: <LCI Juan Jesús Hernández Castañeda>
        '-------------------------------------------------------------------------------------------
        Dim mIpHostEntry As IPHostEntry

        mIpHostEntry = Dns.GetHostEntry(My.Computer.Name)
        ObtenerIpLocal = mIpHostEntry.AddressList(0).ToString
End Function