C#的代码，vb.net应该也差不多。

//Namespace reference

using System.Management;



/// <summary>

/// Returns MAC Address from first Network Card in Computer

/// </summary>

/// <returns>MAC Address in string format</returns>

public string FindMACAddress()

{

    //create out management class object using the

    //Win32_NetworkAdapterConfiguration class to get the attributes

    //af the network adapter

    ManagementClass mgmt = new ManagementClass("Win32_NetworkAdapterConfiguration");

    //create our ManagementObjectCollection to get the attributes with

    ManagementObjectCollection objCol = mgmt.GetInstances();

    string address = String.Empty;

    //loop through all the objects we find

    foreach (ManagementObject obj in objCol)

    {

        if (address == String.Empty)  // only return MAC Address from first card

        {

            //grab the value from the first network adapter we find

            //you can change the string to an array and get all

            //network adapters found as well

            if ((bool)obj["IPEnabled"] == true) address = obj["MacAddress"].ToString();

        }

        //dispose of our object

        obj.Dispose();

    }

    //replace the ":" with an empty space, this could also

    //be removed if you wish

    address = address.Replace(":", "");

    //return the mac address

    return address;

}

     

   Dim mc As New System.Management.ManagementClass("Win32_NetworkAdapterConfiguration")

        Dim moc As System.Management.ManagementObjectCollection = mc.GetInstances()

        For Each mo As System.Management.ManagementObject In moc



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

                MessageBox.Show("网卡=" & mo("MacAddress").ToString())

            End If

        Next

提示：未定义类型System.Management.ManagementClass

谁有vb。net的原码？

没试过，学习一下。

 引用System.Management
 Dim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
        For Each WmiObj As Management.ManagementObject In Wmi.Get
            If CBool(WmiObj("IPEnabled")) Then
                TextBox1.Text = "MAC(" & WmiObj("MACAddress") & ")"             End If
        Next

My Project --> 引用 --> 添加 --> 然后在.Net里边找

引用 6 楼 qshurufa 的回复:

My Project --> 引用 --> 添加 --> 然后在.Net里边找

原来还需要引用，谢谢