Get active mac-address

[Stefan]

hi,
i use this function to get the all mac adresses
how can i modify this function to get only the active connection.
Public Function GetMacAddress() As String

Dim mc As System.Management.ManagementClass

Dim mo As ManagementObject

mc = New ManagementClass("Win32_NetworkAdapterConfiguration ")

Dim moc As ManagementObjectCollection = mc.GetInstances()

For Each mo In moc

If CBool(mo.Item("IPEnabled")) = True Then

MessageBox.Show("MAC address " & mo.Item("MacAddress").ToString())

End If

Next

End Function

[Ken Tucker [MVP]]

Hi

Try this.

' Add a Reference to System.Management
Dim moReturn As Management.ManagementObjectCollection
Dim moSearch As Management.ManagementObjectSearcher
Dim mo As Management.ManagementObject
moSearch = New Management.ManagementObjectSearcher("Select * from
Win32_NetworkAdapter Where AdapterTypeID = 0")
moReturn = moSearch.Get
For Each mo In moReturn
Dim strOut As String
strOut = String.Format("Name {0} - Address {1}", mo("Name"),
mo("MacAddress"))
Trace.WriteLine(strOut)
Next

Ken
----------------------------------
"Stefan" <[e-mail]> wrote in message
news:uA**************@TK2MSFTNGP09.phx.gbl...
hi,
i use this function to get the all mac adresses
how can i modify this function to get only the active connection.
Public Function GetMacAddress() As String
Dim mc As System.Management.ManagementClass
Dim mo As ManagementObject
mc = New ManagementClass("Win32_NetworkAdapterConfiguration ")
Dim moc As ManagementObjectCollection = mc.GetInstances()
For Each mo In moc
If CBool(mo.Item("IPEnabled")) = True Then
MessageBox.Show("MAC address " & mo.Item("MacAddress").ToString())
End If
Next
End Function

[Stefan]

Ken,
appreciate your help but
all the adapters are returned
not just the active one (active one: the one i use to get on the network)

kind regards,

Stefan

"Ken Tucker [MVP]" <vb***@bellsouth.net> schreef in bericht
news:Ot**************@TK2MSFTNGP11.phx.gbl...

Hi

Try this.

' Add a Reference to System.Management
Dim moReturn As Management.ManagementObjectCollection
Dim moSearch As Management.ManagementObjectSearcher
Dim mo As Management.ManagementObject
moSearch = New Management.ManagementObjectSearcher("Select * from
Win32_NetworkAdapter Where AdapterTypeID = 0")
moReturn = moSearch.Get
For Each mo In moReturn
Dim strOut As String
strOut = String.Format("Name {0} - Address {1}", mo("Name"),
mo("MacAddress"))
Trace.WriteLine(strOut)
Next

Ken
----------------------------------
"Stefan" <[e-mail]> wrote in message
news:uA**************@TK2MSFTNGP09.phx.gbl...
hi,
i use this function to get the all mac adresses
how can i modify this function to get only the active connection.
Public Function GetMacAddress() As String
Dim mc As System.Management.ManagementClass
Dim mo As ManagementObject
mc = New ManagementClass("Win32_NetworkAdapterConfiguration ")
Dim moc As ManagementObjectCollection = mc.GetInstances()
For Each mo In moc
If CBool(mo.Item("IPEnabled")) = True Then
MessageBox.Show("MAC address " & mo.Item("MacAddress").ToString())
End If
Next
End Function