vb.net 获取本机网卡的物理址

[linste]

rt

[宝_爸]

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;
}

[linste]

     
   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

[linste]

谁有vb。net的原码？

[mania001]

没试过，学习一下。

[qshurufa]

引用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

[qshurufa]

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

[linste]

[Quote=引用 6 楼 qshurufa 的回复:]
My Project --> 引用 --> 添加 --> 然后在.Net里边找
[/Quote]

原来还需要引用，谢谢