Lire le spooler d’impression

Ce petit code va lire la queue d’impression de l’imprimante par défaut
il faudra importer System.Management dans le projet pour que WMI fonctionne
(ce petit code est tiré de WMI code Creator)

Imports System.Management

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_PrintJob")

            For Each queryObj As ManagementObject In searcher.Get()
                Console.WriteLine("Document: {0}", queryObj("Document"))
            Next
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
        End Try
    End Sub
End Class