Capturar o endereço MAC

Question

Opa.
To usando a função abaixo para capturar o MAC da placa de rede. No XP funciona beleza. No vista, só retorna o MAC e a rede estiver conectada. Tanto wi-fi quanto a rede com cabo.

    Public Function Capturar_MAC() As String

        Try
            Dim mc As ManagementClass
            Dim mo As ManagementBaseObject
            Dim sMAC As String = String.Empty

            mc = New Management.ManagementClass("Win32_NetworkAdapterConfiguration")
            Dim moc As Management.ManagementObjectCollection = mc.GetInstances

            For Each mo In moc
                If mo.Item("IPenabled") = True Then
                    sMAC = mo.Item("MacAddress")
                End If
            Next

return sMAC

end function

como faço para capturar via vb.net para capturar o MAC físico?

vlw desde já.

---

Cassio

Answer 1

Cássios,


Tenta usar:

Dim theManagementScope As New ManagementScope("\\" & ComputerName & "\root\cimv2")
Dim theQueryString As String = "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = 1"
Dim theObjectQuery As New ObjectQuery(theQueryString)

Dim theSearcher As New ManagementObjectSearcher(theManagementScope, theObjectQuery)
Dim theResultsCollection As ManagementObjectCollection = theSearcher.Get()

Dim sResult As String = ""
For Each currentResult As ManagementObject In theResultsCollection
     sResult += currentResult("SettingID").ToString()
Next

Abraços,

---

Marcio Boldorini ( * ) Por favor, marque respondida se a resposta valer.

Answer 2

Opa. Vlw pelo contato.
mas não entendi o retorno.
pois veio um conjunto de números hexadecimal.

esse retorno não corresponde ao ende. mac da minha placa. tenho que adaptar alguma coisa?

vlw.

---

Cassio