通过WMI获得硬盘和CPU的物理序列号

最新推荐文章于 2023-07-23 15:34:02 发布

43720938

最新推荐文章于 2023-07-23 15:34:02 发布

阅读量419

点赞数

分类专栏： VB.NET

本文链接：https://blog.csdn.net/43720938/article/details/3219935

版权

VB.NET 专栏收录该内容

19 篇文章 0 订阅

订阅专栏

首先，引用System.Management；然后在代码中Imports System.Management

 
 '获得硬盘序列号 
        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
 