J
Jason
Hello
I've 4 nic's in my pc, and through the code beloew I'm able to get mac
address of the nic that I want. now how do I get the IP address of that
NIC?
Dim MacAddress As String
Dim scope As ManagementScope = New
ManagementScope(ManagementPath.DefaultPath)
Dim query As SelectQuery = New
SelectQuery("Win32_NetworkAdapterConfiguration")
' this query returns all properties of the class
Dim searcher As ManagementObjectSearcher = New
ManagementObjectSearcher(scope, query)
Dim mo As New ManagementObject
For Each mo In searcher.Get()
If (mo.Item("Caption").ToString) = "[00000016] Packet Scheduler
Miniport" Then
Try
MacAddress = (mo.Item("MacAddress").ToString)
Me.RichTextBox1.Text &= "Mac Address: " & MacAttack &
vbCrLf
Catch ex As Exception
End Try
End If
Next
Thanks
I've 4 nic's in my pc, and through the code beloew I'm able to get mac
address of the nic that I want. now how do I get the IP address of that
NIC?
Dim MacAddress As String
Dim scope As ManagementScope = New
ManagementScope(ManagementPath.DefaultPath)
Dim query As SelectQuery = New
SelectQuery("Win32_NetworkAdapterConfiguration")
' this query returns all properties of the class
Dim searcher As ManagementObjectSearcher = New
ManagementObjectSearcher(scope, query)
Dim mo As New ManagementObject
For Each mo In searcher.Get()
If (mo.Item("Caption").ToString) = "[00000016] Packet Scheduler
Miniport" Then
Try
MacAddress = (mo.Item("MacAddress").ToString)
Me.RichTextBox1.Text &= "Mac Address: " & MacAttack &
vbCrLf
Catch ex As Exception
End Try
End If
Next
Thanks