上古卷轴5龙族套装:通过WMI获得硬盘和CPU的物理序列号(VB.net)(WMI access to the...

来源:百度文库 编辑:偶看新闻 时间:2024/05/01 00:31:55

通过WMI获得硬盘和CPU的物理序列号(VB.net) [ English ]

2008-2-24 1:50:15 中国学网 跟贴 0 条 网友投稿

 


  '获得硬盘序列号

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; 转帖于 Xue163.com_VB.NET