Dim ms_print As New ManagementScope("\\" & sComp & "\root\cimv2", opts)
        ms_print.Connect()
        Dim oq_print As New ObjectQuery("Select * FROM Win32_Printer")
        Dim mos_print As New ManagementObjectSearcher(ms_print, oq_print)
 
        For Each mo_print As ManagementObject In mos_print.Get
            erg_print.Items.Add(mo_print("Caption"))
 
        Next