Windows-Xp

檢查是否存在列印機連接(不可靠的列印機映射)

  • December 15, 2009

我有一個實驗室區域,裡面有大約 75 個 XP 盒子。登錄時,我們使用 VBS 中的 AddWindowsPrinterConnection 方法映射兩台提供服務的列印機。5-10% 的時間,使用者發現列印機沒有成功映射並且他們的列印作業失敗。如果他們重新啟動或註銷,列印機通常會在第二次嘗試時成功映射。

我想在我的腳本中添加邏輯以檢查列印機是否正確映射,如果沒有,請重新執行 AddWindowsPrinterConnection 命令 - 但我不知道如何以程式方式檢查列印機對像是否已映射。

或者是否有更可靠的策略來為這些配置文件持久映射多台列印機?登錄腳本仍然是最好的方法嗎?

看看下面的腳本。它報告目前分配的列印連接。這應該足以讓您重新開始:您自己的腳本,我想。

OPTION EXPLICIT

Dim oNetwork            ' WScript.Network object
Dim colPrinters         ' A collection of the users printer connections
Dim x               ' The canonical scratch variable of doom!

On Error Resume Next

Set oNetwork = CreateObject("WScript.Network")
Set colPrinters = oNetwork.EnumPrinterConnections

' Iterate thru the collection of printers
for x = 1 to colPrinters.count Step 2
   WScript.Echo "Printer: '" & colPrinters(x) & "' on port '" & colPrinters(x - 1) & "'"
next

set oNetwork = Nothing
set oShell = Nothing

引用自:https://serverfault.com/questions/77617