Obtener nombre Monitor PC

[seba123neo]

si, el ejemplo ese que pusiste es de visual basic 6, de esta pagina:

EnumDisplayDevices: Enumerating System Display Devices

y el ejemplo de WMI es raro que no te ande, a mi me tira la marca tal cual es. ahora le puse mas propiedades de la clase , fijate si con esto te tira en alguna la marca del monitor...pone un listbox y este codigo:

Código vb:

Imports System.Management
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Buscar As New ManagementObjectSearcher("SELECT * FROM Win32_DesktopMonitor")
 
        For Each queryObj As ManagementObject In Buscar.Get()
            ListBox1.Items.Add(queryObj("Availability"))
            ListBox1.Items.Add(queryObj("Caption"))
            ListBox1.Items.Add(queryObj("ConfigManagerErrorCode"))
            ListBox1.Items.Add(queryObj("ConfigManagerUserConfig"))
            ListBox1.Items.Add(queryObj("CreationClassName"))
            ListBox1.Items.Add(queryObj("Description"))
            ListBox1.Items.Add(queryObj("DeviceID"))
            ListBox1.Items.Add(queryObj("MonitorManufacturer"))
            ListBox1.Items.Add(queryObj("MonitorType"))
            ListBox1.Items.Add(queryObj("Name"))
            ListBox1.Items.Add(queryObj("PixelsPerXLogicalInch"))
            ListBox1.Items.Add(queryObj("PixelsPerYLogicalInch"))
            ListBox1.Items.Add(queryObj("PNPDeviceID"))
            ListBox1.Items.Add(queryObj("ScreenHeight"))
            ListBox1.Items.Add(queryObj("ScreenWidth"))
            ListBox1.Items.Add(queryObj("Status"))
            ListBox1.Items.Add(queryObj("SystemName"))
        Next
    End Sub
End Class
 

saludos.