VB.NET 怎样获取 设备 ID

在VB.NET中，你可以通过`ManagementObjectSearcher`和`ManagementObject`类来获取设备ID，特别是对于硬件设备，这通常是通过系统管理工具（WMI，Windows Management Instrumentation）来完成的。以下是一个简单的示例，展示如何获取计算机的BIOS制造商和产品ID：

Imports System.Management

Public Function GetDeviceID() As String
    ' 创建一个用于搜索的查询
    Dim query = "SELECT * FROM Win32_BIOS"

    ' 创建一个管理对象搜索者
    Dim searcher As New ManagementObjectSearcher(query)

    ' 获取第一个匹配的结果
    Dim result As ManagementObject = searcher.Get()

    ' 从结果中提取设备ID（例如，这里假设Product下面有生产厂商ID，Version包含产品ID）
    Dim manufacturer As String = DirectCast(result.Properties("Manufacturer").Value, String)
    Dim productID As String = DirectCast(result.Properties("Version").Value, String)

    ' 返回设备ID信息
    Return $"制造商：{manufacturer}，产品ID：{productID}"
End Function