[系统运维]VB.NET利用WMI获取操作系统所在硬盘序列号

? ? ? ? 本人最近在研究license设计，很多商业软件的license通常利用网卡MAC地址来生成，而电脑的MAC地址容易更改，难以保证license的控制。于是想到利用硬盘序列号来生成license。而一台电脑往往有多块硬盘，并且根据用户需求可能会增加硬盘，用哪一块硬盘的序列号呢？很自然想到了系统所在的硬盘，因为系统所在的盘一般不会动，除非重装系统到另一块硬盘。

? ? ? ?在windows系统中很容易直接查到系统盘在哪块硬盘上：右键我的电脑——管理——磁盘管理，在下方图示区域很容易看到系统在哪块硬盘上。

????????如何通过代码获取系统在哪块硬盘上呢？在网上搜了很久，发现基本是用Windows API 函数CreateFile加DeviceIoControl函数实现的，由于在VB.NET中使用API需要写大量的常量定义和函数声明，非常之不方便。

? ? ? ? 幸好之前研究获取硬盘序列号的时候，看过一篇文章是通过WMI的查询获取的，原文链接：VB.NET 获取电脑属性（硬盘ID、硬盘容量、Cpu序列号、MAC地址、系统类型），该链接中通过WMI查询“Win32_DiskDrive”的可以找到所有硬盘对应的序列号及其他信息。于是猜想是不是也能通过WMI来获取系统所在硬盘编号呢？接着找到一篇文章WMI使用的WIN32_类库名，在公开的众类名中找到了“Win32_DiskPartition”类（即Win32_磁盘分区类），感觉就是我需要的，接着在MSDN搜了一下这个类的成员Win32 _ DiskPartition 类，最终找到了我需要的属性。附上全套代码如下，注意需要在解决方案资源管理器里添加System.Management引用，否则无法识别ManagementObjectSearcher函数（即便代码开始Import了也不行，一定要添加到引用列表中）。

Imports System.Management
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        

        '获取系统所在硬盘编号
        Dim rootDiskNo As Integer
        Dim cmicWmi2 As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskPartition")

        For Each cmicWmiObj As ManagementObject In cmicWmi2.Get
            If cmicWmiObj("BootPartition") = True Then '判断当前分区是否为系统盘所在
                rootDiskNo = cmicWmiObj("DiskIndex") '获得电脑中硬盘序号（形如0，1，2）
            End If

        Next

        Dim rootDiskSerialNO As String
        Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
        For Each cmicWmiObj As ManagementObject In cmicWmi.Get           
            If cmicWmiObj("Index") = rootDiskNo Then
                rootDiskSerialNO = cmicWmiObj("serialnumber")
            End If
        Next
        Msgbox(rootDiskSerialNO)
  

    End Sub