首先,引用System.Management;然后在代码中Imports System.Management;
以下功能主要依靠wmi实现
获得硬盘序列号
代码如下 | 复制代码 |
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 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 |