[2008] WMI Network Information (IP Address)

[michaelerice]

Try changing the code from...

For Each queryObj As ManagementObject in searcher.Get()

    Console.WriteLine("-----------------------------------")
    Console.WriteLine("Win32_NetworkAdapterConfiguration instance")
    Console.WriteLine("-----------------------------------")

    If queryObj("IPAddress") Is Nothing Then
        Console.WriteLine("IPAddress: {0}", queryObj("IPAddress"))
    Else
        Dim arrIPAddress As String()
        arrIPAddress = queryObj("IPAddress")
        For Each arrValue As String In arrIPAddress
            Console.WriteLine("IPAddress: {0}", arrValue)
        Next
    End If
Next

to...

For Each queryObj As ManagementObject in searcher.Get()
    If Not(queryObj("IPAddress") Is Nothing) Then
        Dim arrIPAddress As String()
        arrIPAddress = queryObj("IPAddress")
        For Each arrValue As String In arrIPAddress
            Console.WriteLine(arrValue)
        Next
    End If
Next