vb.net 获取打印机工作状态，是否离线，打印机名称，端口号等打印机属性信息，windows 7下亲测可用

这是vb.net 版本的，我测试了，没有问题，列出当前计算机系统中所有的打印机，列出其所有属性，网上好多人写的获取打印机状态的字段是不正确的，判断是否脱机或离线，应该选字段WorkOffline才对。
软件版本为：visual studio 2019 社区版
首先在引用里面添加system.drawing

Imports System.Management

Public Class FrmGetPrinterStatus
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim strQuery As String = String.Format("SELECT * from Win32_Printer")
        Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher(strQuery)
        Dim printers As ManagementObjectCollection = searcher.Get()
        Dim printer As ManagementBaseObject

        '//显示所有打印机的属性
        For Each printer In printers

            '//显示部分常用属性
            Console.WriteLine(printer.Properties.Item("Name").Value)                '//获取打印机名称
            Console.WriteLine(printer.Properties.Item("PortName").Value)            '//获取打印机端口名称
            Console.WriteLine(printer.Properties.Item("Default").Value)             '//获取打印机是否是默认打印机
            Console.WriteLine(printer.Properties.Item("PrinterStatus").Value)       '//获取打印机工作状态
            Console.WriteLine(printer.Properties.Item("WorkOffline").Value)         '//获取打印机是否离线或脱机

            '//显示所有属性
            Dim tmpData As PropertyData
            For Each tmpData In printer.Properties
                Console.WriteLine(String.Format("{0}: {1}", tmpData.Name, tmpData.Value))
            Next

            Console.WriteLine()

        Next


    End Sub
End Class

代码参照：
https://blog.csdn.net/weixin_30546189/article/details/98981383?depth_1-utm_source=distribute.pc_relevant.none-task

打印机属性具体含义及参数请参照：
https://docs.microsoft.com/zh-cn/windows/win32/cimwin32prov/win32-printer