Visual Basic

Imports System.Management
 
Public Class Form1
 
    ' Important!!  MUST use \root\cimv2 here!  \root\default does NOT work!
    Private scope as New ManagementScope(String.Format("\\{0}\root\cimv2", Environment.MachineName))
 
    Private Sub Button1_Click(blah, blah) Handles Button1.Click
        If ConnectToWmi() Then
            GetJobList()
        End If
    End Sub
 
    Private Sub GetJobList()
        ' Clear out the ListView we're using to show the jobs.
        JobList.Items.Clear()
 
        If scope.IsConnected Then
            Dim query As New ObjectQuery("SELECT * FROM Win32_PrintJob")
            Dim searcher As New ManagementObjectSearcher(scope, query)
 
            Dim objectCollection As ManagementObjectCollection = searcher.Get()
            For Each obj As ManagementObject In objectCollection
                JobList.Items.Add( new String() { CUint(obj("JobId")).ToString(), CStr(obj("Document")) } )
            Next
 
            ' It's very important to dispose these objects when your done with them!  If
            ' you don't, you'll end up with a handle leak and eventually crash the system.
            objectCollection.Dispose()
            searcher.Dispose()
        End If
    End Sub
 
    Private Function ConnectToWmi() As Boolean
        scope.Connect()
        Return scope.IsConnected()
    End Function
End Class