获取显示设备的名称及PNPDeviceID

程序代码：


    Imports System.Management
    Private Sub button1_Click(sender As Object, e As EventArgs)
        Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_VideoController")
        For Each FlashDeviceObject As ManagementObject In searcher.[Get]()
            textBox1.Text = FlashDeviceObject("Name").ToString()
            textBox2.Text = FlashDeviceObject("PNPDeviceID").ToString()
        Next
    End Sub

注意：PNPDeviceID 不一定是固定的。