'添加外部引用:System.Management.dll,代码
Dim mc As new System.Management.ManagementClass("Win32_Processor")
mc = new System.Management.ManagementClass("Win32_PhysicalMedia")
Dim moc = mc.GetInstances()
For Each mo As System.Management.ManagementObject In moc
Output.Show( mo.Properties("SerialNumber").Value.ToString())
Next