Access - Obtener ip de mi ordenador

Function ObtenerDireccionIP() As String

    Dim objWMIService As Object

    Dim colItems As Object

    Dim objItem As Object

    ' Crea el objeto WMI para acceder a la configuración de red

    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

    ' Obtiene la colección de adaptadores de red

    Set colItems = objWMIService.ExecQuery("SELECT IPAddress FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True")

    ' Itera sobre los adaptadores de red

    For Each objItem In colItems

        ' Verifica si se encontró una dirección IP

        If Not IsNull(objItem.IPAddress) Then

            ' La dirección IP se encuentra en la primera posición del arreglo

            ObtenerDireccionIP = objItem.IPAddress(0)

            Exit Function

        End If

    Next objItem

    ' Si no se encontró ninguna dirección IP, devuelve una cadena vacía

    ObtenerDireccionIP = ""

End Function

Dim direccionIP As String

direccionIP = ObtenerDireccionIP()

MsgBox "La dirección IP de tu ordenador es: " & direccionIP