none
Dirección IP equipo de red RRS feed

  • Pregunta

  • Hola,

    Tengo un Servidor y un equipo que se conecta a él mediante red local. En VB tengo un código que devuelve la IP, el problema es que la IP que trae es la del servidor y necesito conocer es la IP del equipo local que está accediendo a la aplicación web.

    Gracias de antemano por su ayuda.

    martes, 19 de enero de 2016 15:39

Respuestas

  • Hola:
    En un Form con 1 Label, copia y pega el siguiente codigo

    'Hay que añadir una referencia a System.Management
    Public Class Form1

        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
            Me.Label1.Text = lF_sDireccionIP()
        End Sub

        Private Function lF_sDireccionIP() As String
            Dim query As New System.Management.ManagementObjectSearcher("Select * From WIN32_NetworkAdapterConfiguration Where IPEnabled = 'TRUE'")
            Dim queryCollection As System.Management.ManagementObjectCollection = query.Get()
            Dim mo As New System.Management.ManagementObject
            Dim strIPAddress As String = ""
            For Each mo In queryCollection
                Dim strAddresses() As String = CType(mo("IPAddress"), String())
                For Each strIPAddress In strAddresses
                    Exit For
                Next
                If strIPAddress <> "" Then Exit For
            Next
            '--Liberando Memoria--
            query.Dispose()
            query = Nothing
            queryCollection.Dispose()
            queryCollection = Nothing
            mo.Dispose()
            mo = Nothing
            '---------------------
            Return strIPAddress
        End Function
    End Class

    Un saludo desde Bilbo
    Carlos


    miércoles, 20 de enero de 2016 8:33