Home All Groups Group Topic Archive Search About

get ip address of NIC

Author
23 Feb 2006 2:45 PM
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

Author
23 Feb 2006 9:37 PM
iwdu15
try

Dim MyIp as Net.IPAddress =
Net.Dns.GetHostByName(Net.Dns.GetHostName).AddressList.GetValue(0)
--
-iwdu15