Foros del Web » Programación para mayores de 30 ;) » .NET »

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

Estas en el tema de Vb.net WinForm IP segun Nombre del pc en la red en el foro de .NET en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 14/02/2013, 08:12
Avatar de damid3  
Fecha de Ingreso: noviembre-2012
Mensajes: 90
Antigüedad: 11 años, 3 meses
Puntos: 0
Vb.net WinForm IP segun Nombre del pc en la red

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:
Ver original
  1. Public Sub GetPConNetWord()
  2.         Dim root As New DirectoryEntry("WinNT:")
  3.         Dim parent As DirectoryServices.DirectoryEntries
  4.         parent = root.Children
  5.         Dim d As DirectoryEntries = parent
  6.         For Each complist As DirectoryEntry In parent
  7.             For Each c As DirectoryEntry In complist.Children
  8.                 If (c.Name <> "Schema") Then
  9.                     cbmac.Items.Add(c.Name)
  10.                 End If
  11.             Next
  12.         Next
  13.     End Sub

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


Saludos
  #2 (permalink)  
Antiguo 15/02/2013, 13:08
Avatar de juan85  
Fecha de Ingreso: febrero-2011
Ubicación: Celaya
Mensajes: 9
Antigüedad: 13 años
Puntos: 0
Respuesta: Vb.net WinForm IP segun Nombre del pc en la red

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

Etiquetas: ip, net, nombre, pc, red, winform
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 22:18.