VB.NET获取设备管理器分类列表检测自定义驱动安装状态

你之前的伪代码对System.Management的用法理解有误，该命名空间下没有流读取相关的Reader/ReadLine方法，设备管理器的顶层分类对应WMI中的Win32_PnPClass类，直接查询该类即可实现检测逻辑，不需要依赖第三方组件。

前置准备 #

你已经完成了这两步，可以直接进入代码编写：

• 项目中已添加System.Management程序集引用
• 代码头部已添加Imports System.Management命名空间导入

实现代码 #

首先编写独立的检测函数，遍历所有PnP设备类匹配目标分类名：

''' <summary>
''' 检测设备管理器是否存在指定名称的顶层设备分类
''' </summary>
''' <param name="className">待查找的分类名称</param>
''' <returns>分类存在返回True，否则返回False</returns>
Private Function CheckDriverCategoryExist(className As String) As Boolean
    Try
        Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_PnPClass")
        For Each pnpClassItem As ManagementObject In searcher.Get()
            Dim currentClassName As String = pnpClassItem("ClassName")?.ToString().Trim()
            If currentClassName = className Then
                Return True
            End If
        Next
        Return False
    Catch ex As ManagementException
        ' WMI查询异常时默认返回不存在，可按需添加日志逻辑
        Return False
    End Try
End Function

在需要触发检测的位置（比如窗体加载事件、定时检测事件）调用函数，根据结果控制控件状态：

Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Const TARGET_CATEGORY As String = "Custom Driver"
    Dim driverInstalled As Boolean = CheckDriverCategoryExist(TARGET_CATEGORY)

    ' 按业务逻辑控制控件显示状态
    If driverInstalled Then
        Button1.Visible = False
        Label1.Visible = True
        Button2.Visible = True
        Label2.Visible = False
    Else
        ' 驱动未安装时的控件状态，可按需调整
        Button1.Visible = True
        Label1.Visible = False
        Button2.Visible = False
        Label2.Visible = True
    End If
End Sub

补充说明 #

• 该方案查询的就是设备管理器中与电池、监视器、处理器、端口同层级的顶层分类，完全匹配检测需求
• 代码默认对分类名做了前后空格Trim处理，避免驱动创建分类时带不可见空格导致匹配失败
• 该WMI查询不需要管理员权限，普通用户权限运行程序即可正常检测
• 如果需要实时感知驱动安装状态，可以把检测逻辑放到Timer控件中，设置1-2秒的检测间隔即可，资源占用极低

内容的提问来源于stack exchange，提问作者Mike