Private Sub GetPrinterinfo(ByVal strPrinterName As String)
 
        Try
 
            Dim aMS As New ManagementScope("root\CIMV2")
            Dim aOQ As New ObjectQuery("SELECT * FROM win32_printer WHERE Name" & _
              "='" & strPrinterName & "'")
            Dim aMAS As New ManagementObjectSearcher(aMS, aOQ)
            Dim aObj As ManagementObject
            For Each aObj In aMAS.Get()
                Me.lbStatus.Text = aObj("PrinterState").ToString
                Me.lbOrt.Text = aObj("Location").ToString
                Me.lbKommentar.Text = aObj("Comment").ToString
                Me.lbTreiber.Text = aObj("Driver").ToString
            Next
 
        Catch ex As Exception
        End Try
 
    End Sub