Imports System.Printing
 
    Public Function GetPrinterQueries(ByVal PrintServer As String) As List(Of _
      PrinterQueueInfo)
        Try
            'Initialisierung des PrintServer-Objekts
            Dim myPrintServer As New PrintServer("\\" & PrintServer, _
              PrintSystemDesiredAccess.EnumerateServer)
 
            Dim result As New List(Of PrinterQueueInfo)
 
            'Druckerwarteschlangen auflisten
            Dim myPrintQueues As PrintQueueCollection = _
              myPrintServer.GetPrintQueues()
            For Each pq As PrintQueue In myPrintQueues
                If Not pq.ShareName = "" Then
                    Dim hh As New PrinterQueueInfo
                    hh.Server = pq.HostingPrintServer.Name
                    hh.ShareName = pq.ShareName
                    result.Add(hh)
                End If
            Next pq
 
            Return result
        Catch ex As Exception
            Return New List(Of PrinterQueueInfo)
        End Try
    End Function
 
'Hier noch die Hilfsklasse, welche ich zur Speicherung der benötigten Daten 
' erstellt habe:
 
Public Class PrinterQueueInfo
    Public ShareName As String
    Public Server As String
End Class