C#/VB.NET 获取电脑属性（硬盘ID、硬盘容量、Cpu序列号、MAC地址、系统类型）

        Dim key As RegistryKey = Registry.LocalMachine
        Dim subKey = key.OpenSubKey("HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 0\Target Id 0\Logical Unit Id 0")
        Dim bbb = subKey.GetValue("Identifier")

        Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
        Dim diskId As String '数字ID
        Dim diskSerialNumber As String '这个我们暂且称其为序列号码
        Dim diskModel As String '序列号
        For Each cmicWmiObj As ManagementObject In cmicWmi.Get
            diskId = cmicWmiObj("signature")
            diskSerialNumber = cmicWmiObj("serialnumber")
            diskModel = cmicWmiObj("Model")
        Next

        Dim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_Processor")
        Dim cpuId As String
        For Each WmiObj As ManagementObject In Wmi.Get
            cpuId = WmiObj("ProcessorId")
        Next

 1     public string GetMacAddress()
 2     {
 3         string macAddress = "";
 4         ManagementObjectSearcher query = new ManagementObjectSearcher("select * from Win32_NetworkAdapterConfiguration");
 5         ManagementObjectCollection querylist = query.Get();
 6         foreach (var managementBaseObject in querylist)
 7         {
 8             if (managementBaseObject["IPEnabled"].ToString() == "True")
 9             {
10                 macAddress = managementBaseObject["MacAddress"].ToString();
11             }
12         }
13         return macAddress;
14     }
15     string GetAddressIp()
16     {
17         string addressIp = string.Empty;
18         var ipHostEntry = Dns.GetHostEntry(Dns.GetHostName());
19         foreach (IPAddress iPAddress in ipHostEntry.AddressList)
20         {
21             if (iPAddress.AddressFamily.ToString() == "InterNetwork")
22             {
23                 addressIp = iPAddress.ToString();
24             }
25         }
26         return addressIp;
27     }

        Dim pcType As String
        Dim pcMemory As String
        Dim mos As New ManagementObjectSearcher("select * from Win32_ComputerSystem")
        For Each mo As Object In mos.Get()
            pcType = mo("SystemType")
            pcMemory = mo("TotalPhysicalMemory")
        Next