get ip address of NIC

  • Thread starter Thread starter Jason
  • Start date Start date
J

Jason

Imports System.Management


I've got the following code, that gets the mac address of the card I'm
looking for, but how can I also get the ip address of that card???

Thanks


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
 
try

Dim MyIp as Net.IPAddress =
Net.Dns.GetHostByName(Net.Dns.GetHostName).AddressList.GetValue(0)
 
Back
Top