VB.net获取CPU与硬盘物理序列号与容量的实例

作者：袖梨 2022-06-25

首先，引用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 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

　

相关文章

精彩推荐