none
Capturar o endereço MAC RRS feed

  • Pergunta

  • 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
    terça-feira, 13 de outubro de 2009 17:34

Todas as Respostas

  • 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.
    quarta-feira, 14 de outubro de 2009 12:42
  • 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
    quarta-feira, 14 de outubro de 2009 13:30