如何让 System.Printing.PrintServer.GetPrintQueues 从远程服务器返回打印队列列表？

Question

问题

我正在尝试获取远程服务器上可用的打印队列列表。

最终这需要从 ASP.NET 执行，但现在我愿意让控制台应用程序工作。

当我创建 System.Printing.PrintServer 的实例使用远程服务器路径的强> 类我能够获取有关打印服务器的基本信息。但是，当我调用 GetPrintQueues 方法时，我只能获取在本地框上定义的队列。无论我使用什么远程设备。

代码

Imports System.Printing

Module Module1
  Sub Main()
    ListPrintQueues("\\local")
    ListPrintQueues("\\remote")
    ListPrintQueues("\\other")
  End Sub

  Sub ListPrintQueues(ByVal server As String)

    Dim ps As New PrintServer(server)
    Console.WriteLine("Printer Server=" & ps.Name)

    Dim flags() As EnumeratedPrintQueueTypes = {EnumeratedPrintQueueTypes.Connections, EnumeratedPrintQueueTypes.Local}

    Dim queues As PrintQueueCollection = ps.GetPrintQueues(flags)

    For Each pq As PrintQueue In queues
      Console.WriteLine(pq.FullName)
    Next

    Console.WriteLine()
  End Sub
End Module

示例：

假设以下配置

• \\local（定义了 3 个打印队列的本地计算机，1 个是远程连接）
  • LPrinter1
  • LPrinter2
  • \\远程\RPrinter1
• \\remote（定义了 2 个打印队列的远程计算机）
  
  • RPrinter1
  • RPrinter2
• \\other（定义了 1 个打印队列的其他计算机）
  • OPrinter

结果是：

Print Server=\\local  
\\local\LPrinter1  
\\local\LPrinter2  
\\remote\RPrinter1  

Print Server=\\remote  
\\remote\RPrinter1  

Print Server=\\other
\\remote\RPrinter1  

我最好的猜测是 GetPrintQueues() 方法内部发生了一些事情，导致打印服务器重置为本地框，因为打印服务器名称是什么并不重要，只要它是网络上的一台有效计算机。

Answer 1

找到了答案......即使这不是我想要的。

如果我将枚举标志更改为仅本地并连接到我过去登录过的服务器，我将获得正确的打印机。但如果我还没有登录，那么我会从我的机器获取远程打印队列列表。

当我尝试使用 WMI 执行类似操作时，我在已连接的远程服务器上收到“访问被拒绝”错误。我的猜测是 System.Printing 捕获异常然后默认为本地打印服务器。

更改了代码

Imports System.Printing

Module Module1
  Sub Main()
    ListPrintQueues("\\local")
    ListPrintQueues("\\remote")
    ListPrintQueues("\\other")
  End Sub

  Sub ListPrintQueues(ByVal server As String)

    Dim ps As New PrintServer(server)
    Console.WriteLine("Printer Server=" & ps.Name)

    Dim flags() As EnumeratedPrintQueueTypes = {EnumeratedPrintQueueTypes.Local}

    Dim queues As PrintQueueCollection = ps.GetPrintQueues(flags)

    For Each pq As PrintQueue In queues
      Console.WriteLine(pq.FullName)
    Next

    Console.WriteLine()
  End Sub
End Module

Answer 2

Private Sub btnreanudar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreanudar.Click
    Dim SERVIDOR As New System.Printing.PrintServer() 'SUPERIOR DEL SISTEMA DE IMPRESION (EL ORDENADOR)
    Dim IMPRESORAS As PrintQueueCollection = SERVIDOR.GetPrintQueues() 'IMPRESORAS DISPONIBLES
    For Each IMPRESORA As PrintQueue In IMPRESORAS 'RECORRE TODAS LAS IMPRESORAS
        Try
            If IMPRESORA.NumberOfJobs > 0 Then 'SI LA IMPRESORA TIENE ALGUNA IMPRESION EN MARCHA......
                IMPRESORA.Refresh()
                Dim IMPRESIONES As PrintJobInfoCollection = IMPRESORA.GetPrintJobInfoCollection() 'CREA UNA COLECCION DE IMPRESIONES EN MARCHA
                For Each IMPRESION In IMPRESIONES ' POR CADA IMPRESION......
                    If IMPRESION.JobIdentifier = joblist.CurrentRow.Cells("JobId").Value Then
                        IMPRESION.Resume()
                        Exit Sub
                    End If
                Next
            End If
        Catch ex As Exception
        End Try
    Next
End Sub