/'获得硬盘序列号
Dim cmicWmi As New System.Management.ManagementObjectSearcher(/"SELECT * FROM Win32_DiskDrive/")
Dim Uint32 As UInt32
For Each cmicWmiObj As ManagementObject In cmicWmi.Get
Uint32 = cmicWmiObj(/"signature/")
Next
TextBox1.Text = Uint32.ToString
/'获得CPU序列号
Dim Wmi As New System.Management.ManagementObjectSearcher(/"SELECT * FROM Win32_Processor/")
Dim Uint32 As String
For Each WmiObj As ManagementObject In Wmi.Get
Uint32 = WmiObj(/"ProcessorId/")
Next
TextBox1.Text = Uint32
/'获得硬盘总容量
Dim Wmi As New System.Management.ManagementObjectSearcher(/"SELECT * FROM Win32_DiskDrive/")
Dim Uint64 As UInt64
For Each WmiObj As ManagementObject In Wmi.Get
Uint64 = WmiObj(/"size/")
Next
TextBox1.Text = Uint64.ToString
首先,引用System.Management;然后在代码中Imports System.Management;
通过WMI获得硬盘和CPU的物理序列号
最新推荐文章于 2022-02-26 18:25:27 发布