[RESOLVED] [2005] WMI IPAddress Array Help

[Giraffe Frenzy]

Hi Everyone,

I need your help with breaking out data within an array. The below code is a WMI query on your local machine that should output your IP addresses via a message box.

My problem is that when I run the code, the message box displays "System.String[]". I know this is because machines may have multiple IPs and they stored in this array.

My question is, how do I output the data within this array? ANY help would be greatly appreciated.

Here is a link from Microsoft outlining the IPAddress aray http://msdn2.microsoft.com/en-us/library/aa394217.aspx

Imports System.Management
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim manScope As ManagementScope
        Dim manPath As ManagementPath
        Dim manClass As ManagementClass
        Dim manObj As ManagementObject
        Dim manObjCol As ManagementObjectCollection
        Dim output As String = String.Empty
        Dim RemoteMachineName As String

        RemoteMachineName = "."

        Try

            manPath = New ManagementPath("\\" & RemoteMachineName & "\root\CIMV2:Win32_NetworkAdapterConfiguration")
            manScope = New ManagementScope(manPath)

            manClass = New ManagementClass(manScope, manPath, Nothing)
            manObjCol = manClass.GetInstances()

            For Each manObj In manObjCol
                MsgBox(manObj("IPAddress").ToString)
            Next

        Catch ex As Exception
            ' MessageBox.Show(ex.Message)
        Finally
            manPath = Nothing
            manScope = Nothing
            manClass = Nothing
            manObjCol = Nothing
        End Try
    End Sub
End Class

[jmcilhinney]

You would normally use a For Each loop or a For loop to visit each element of an array. This is no different.

[Giraffe Frenzy]

Could you show me how that would be done in this case? I am having issues getting it to work.

[jmcilhinney]

If you've ever done it for one String array then you already know how to do it. What code are you using?

[Giraffe Frenzy]

Hi jmc,

That is my problem. I do not know how to do this. I understand the concept, but I do not know how to relate it to this situation.

[Giraffe Frenzy]

jmc,

I tried outputting the data in the array by using another for loop, but this did not work:

Imports System.Management
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim manScope As ManagementScope
        Dim manPath As ManagementPath
        Dim manClass As ManagementClass
        Dim manObj As ManagementObject
        Dim manObjCol As ManagementObjectCollection
        Dim output As String = String.Empty
        Dim RemoteMachineName As String
        Dim ip As String

        RemoteMachineName = "."

        Try

            manPath = New ManagementPath("\\" & RemoteMachineName & "\root\CIMV2:Win32_NetworkAdapterConfiguration")
            manScope = New ManagementScope(manPath)

            manClass = New ManagementClass(manScope, manPath, Nothing)
            manObjCol = manClass.GetInstances()

            For Each manObj In manObjCol
                For Each ip In (manObj("IPAddress").ToString)
                    MsgBox(manObj("IPAddress").ToString)
                Next
            Next

        Catch ex As Exception
            ' MessageBox.Show(ex.Message)
        Finally
            manPath = Nothing
            manScope = Nothing
            manClass = Nothing
            manObjCol = Nothing
        End Try
    End Sub
End Class

[jmcilhinney]

We've already established that manObj("IPAddress") is a String array and that manObj("IPAddress").ToString returns "System.String[]". If you want to get the elements from an array you don't want to turn that array into a string first. You want to use the array itself. Read these words very carefully. You want to do something:

for each string in the array

Now, with those words in mind, look at your code again and ask yourself how you would change your For Each loop to implement those words.

[Giraffe Frenzy]

Thanks JMC for your help. Your style and persistence in teaching is very very helpful. I got it working with the below for loop.

                For Each ip In manObj("IPAddress")
                    MsgBox(ip)
                Next