Get mac via VB 2010

executor -  
Nico# Messages postés 323 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

je suis un débutant en vb et je jeux si c'est possible de m'aidez a trouver comment lire une adresse mac de mon PC avec un script vb 2010, merci bien .
A voir également:

1 réponse

Réponse 1 / 1
Nico# Messages postés 323 Date d'inscription   Statut Membre Dernière intervention   102
 
Slt,
tu peut faire comme ceci 

Imports System
Imports System.Management
Imports System.Windows.Forms

Namespace WMISample

    Public Class AdresseMac

        Public Overloads Shared Function Main() As Integer

            Try
                Dim searcher As New ManagementObjectSearcher( _
                    "root\CIMV2", _
                    "SELECT * FROM Win32_NetworkAdapterConfiguration") 

                For Each queryObj As ManagementObject in searcher.Get()

                    Console.WriteLine("-----------------------------------")
                    Console.WriteLine("Win32_NetworkAdapterConfiguration instance")
                    Console.WriteLine("-----------------------------------")
                    Console.WriteLine("MACAddress: {0}", queryObj("MACAddress"))
                Next
            Catch err As ManagementException
                MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
            End Try
        End Function
    End Class
End Namespace
0