Windows-Xp
檢查是否存在列印機連接(不可靠的列印機映射)
我有一個實驗室區域,裡面有大約 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