How to read IP Address of 'actually used' lan nic? (2 Viewers)

[amorosik]

Normallly, using this code, ALL pc ip addresses are returned
But wanting to know exactly the address of the wired or wireless network card that pc is using, how to do?
I ask this beacuae if the pc has two lan ports on the motherboard, a wifi card, and a virtual lan like those installed by HyperV, the result of the function is almost nevere the adress expected

Function GetLanIpAddress() As String
    Const STR_COMPUTER As String = "."
    Dim objWMI As Object
    Dim colAdapters As Object
    Dim objAdapter As Object
    Dim sIp As String
    
    ' Avvia WMI
    Set objWMI = GetObject("winmgmts:\\" & STR_COMPUTER & "\root\cimv2")
    ' Seleziona solo adattatori con IP abilitato e non wireless
    Set colAdapters = objWMI.ExecQuery( _
        "SELECT * FROM Win32_NetworkAdapterConfiguration " & _
        "WHERE IPEnabled = TRUE")
    
     For Each objAdapter In colAdapters
        If Not IsNull(objAdapter.IpAddress) Then
            Dim arrIP
            arrIP = objAdapter.IpAddress
            Debug.Print "IP ADDRESS = " & arrIP(i)
            End If
        Next
    
    For Each objAdapter In colAdapters
        If Not IsNull(objAdapter.IpAddress) Then
            'Dim arrIP
            arrIP = objAdapter.IpAddress
            Dim i As Integer
            For i = LBound(arrIP) To UBound(arrIP)
                ' Salta gli IPv6
                If InStr(arrIP(i), ":") = 0 Then
                    ' Se è un IP privato (LAN)
                    If Left(arrIP(i), 4) = "192." Or _
                       Left(arrIP(i), 4) = "10." Or _
                       Left(arrIP(i), 4) = "172." Then
                        GetLanIpAddress = arrIP(i)
                        Exit Function
                    End If
                End If
            Next i
        End If
    Next
    
    GetLanIpAddress = "" ' Nessun IP trovato
End Function

 

[June7]

Does this help https://www.access-programmers.co.u...o-get-my-computer-ip-address-with-vba.331661/

 

[amorosik]

Does this help https://www.access-programmers.co.u...o-get-my-computer-ip-address-with-vba.331661/

It's the same code
I've try it, same result

 

[June7]

I see that now.

I used cmd window to output IPConfig info. I have 5 configurations and 4 are disconnected so I only get IP for my WiFi as only enabled objects are retrieved by the query into IPConfgSet. If I remove the filter criteria, I get 18 items. I also looked at DeviceManager and it lists 11 items under Network adapters.

I modified above code to get the IPConfig.Caption property (see complete list at https://learn.microsoft.com/en-us/windows/win32/cimwin32prov/win32-networkadapterconfiguration). The output is [00000013] Intel(R) Wireless-N 7260. That is definitely model of the adapter I installed last month. Perhaps you can use that property to identify the connection you want.

One curiosity this exercise revealed is the VBA (without filter criteria) lists a Qualcomm adapter that was replaced by the Intel adapter. The Qualcomm device is not listed in DeviceManager nor IPConfig cmd.

 

[theDBguy]

Can you describe the main purpose for determining the IP address? Perhaps if the goal was known, someone can offer an appropriate approach. I was thinking of maybe using an HTTP request to get this info.

 

[The_Doc_Man]

When I had to do this (and at the time, didn't know about WMI), what I used was to shell a command to the CMD prompt:

ipconfig  > .\ipcfg.txt

Then I opened file ".\ipcfg.txt" (for reading) and did successive LINE INPUT statements looking for keywords. Most of the things were easy to recognize and most of the potential connections were "Not connected" and thus easy to disregard. If you do this once by hand, you can get all the keywords that you need in order to pick apart the inputs. This trick also works on MAC addresses using the ARP command. If you do this, remember to CLOSE and KILL the file when done with it.

Note that if you have a typical modern network I/F, the IPv4 address is your internal network's DHCP-assigned address, not the network IP, because the network IP will probably be for IPv6, and you might see several such addresses for different purposes.

 

[amorosik]

Can you describe the main purpose for determining the IP address? Perhaps if the goal was known, someone can offer an appropriate approach. I was thinking of maybe using an HTTP request to get this info.

I want to log the communication channel used to be able to reproduce the environment used during the execution of some procedures, for example when there are performance problems or errors in communication
It happens that there are notebooks and maybe the customer says "... it is connected with the cable ..." while instead it is working via wifi and things of this type
And so my main goal is to understand, via code, what is the address of the nic inside the machine, which at this moment is connecting the computer to the rest of the network

 

[xavier.batlle]

I want to log the communication channel used to be able to reproduce the environment used during the execution of some procedures, for example when there are performance problems or errors in communication
It happens that there are notebooks and maybe the customer says "... it is connected with the cable ..." while instead it is working via wifi and things of this type
And so my main goal is to understand, via code, what is the address of the nic inside the machine, which at this moment is connecting the computer to the rest of the network

Perhaps you can get this information using PowerShell (by ChatGPT):

Write-Host "Equipo local: $env:COMPUTERNAME`n"

# Obtener adaptadores físicos que estén activos
$adapters = Get-NetAdapter -Physical | Where-Object { $_.Status -eq 'Up' }

foreach ($adapter in $adapters) {
    $name = $adapter.Name
    $interfaceDesc = $adapter.InterfaceDescription
    $status = $adapter.Status
    $ifIndex = $adapter.ifIndex

    # Determinar tipo de conexión
    $type = if ($interfaceDesc -match 'wireless|wi-?fi') { 'Wireless' } else { 'Ethernet' }

    # Obtener direcciones IP asociadas (IPv4 únicamente)
    $ipInfo = Get-NetIPAddress -InterfaceIndex $ifIndex -AddressFamily IPv4 -ErrorAction SilentlyContinue
    $ipList = $ipInfo | Select-Object -ExpandProperty IPAddress

    Write-Host "Adaptador: $name"
    Write-Host "  Tipo: $type"
    Write-Host "  Estado: $status"
    Write-Host "  IP(s): $($ipList -join ', ')`n"
}

 

[bbfromgb]

You may want to use the LinkTechnology property of the MSFT_NetAdapter class in conjunction with the InterfaceOperationalStatus property instead of Win32_NetworkAdapterConfiguration class

LinkTechnology
Data type: uint16
Access type: Read-only

An enumeration of the types of links. When set to 1 ("Other"), the related property OtherLinkTechnology contains a string description of the type of link. This property inherits from CIM_NetworkPort

Unknown (0)
Other (1)
Ethernet (2)
IB (3)
FC (4)
FDDI (5)
ATM (6)
Token Ring (7)
Frame Relay (8)
Infrared (9)
BlueTooth (10)
Wireless LAN (11)

InterfaceOperationalStatus
Data type: uint32
Access type: Read-only
Current network interface operational status.

Up (1)
Down (2)
Testing (3)
Unknown (4)
Dormant (5)
Not Present (6)
Lower layer down (7)