HP/Xerox use universal installer, warn about unsupported vendors
- HP and Xerox printers: universal installer (one batch call) - Non-HP/Xerox with installpath: use specific installer - Non-HP/Xerox without installpath: show warning for manual install 🤖 Generated with [Claude Code](https://claude.com/claude-code) Co-Authored-By: Claude <noreply@anthropic.com>
This commit is contained in:
@@ -204,16 +204,35 @@ Else
|
|||||||
Set universalPrinters = Server.CreateObject("Scripting.Dictionary")
|
Set universalPrinters = Server.CreateObject("Scripting.Dictionary")
|
||||||
universalNames = ""
|
universalNames = ""
|
||||||
|
|
||||||
' Force ALL printers through universal installer (ignore specific installers)
|
' HP and Xerox use universal installer, others need specific installers
|
||||||
|
Dim skippedPrinters
|
||||||
|
Set skippedPrinters = Server.CreateObject("Scripting.Dictionary")
|
||||||
|
|
||||||
For Each printerKey In printers.Keys
|
For Each printerKey In printers.Keys
|
||||||
Set printer = printers(printerKey)
|
Set printer = printers(printerKey)
|
||||||
|
If printer("vendor") = "HP" Or printer("vendor") = "Xerox" Then
|
||||||
universalPrinters.Add printerKey, printer
|
universalPrinters.Add printerKey, printer
|
||||||
If universalNames <> "" Then universalNames = universalNames & ","
|
If universalNames <> "" Then universalNames = universalNames & ","
|
||||||
universalNames = universalNames & printer("standardname")
|
universalNames = universalNames & printer("standardname")
|
||||||
|
ElseIf printer("installpath") <> "" Then
|
||||||
|
specificInstallers.Add printerKey, printer
|
||||||
|
Else
|
||||||
|
skippedPrinters.Add printerKey, printer
|
||||||
|
End If
|
||||||
Next
|
Next
|
||||||
|
|
||||||
' Skip specific installers - all printers use universal installer now
|
' Warn about printers that can't be installed
|
||||||
' Process printers with specific installers first (silent mode)
|
If skippedPrinters.Count > 0 Then
|
||||||
|
Response.Write("echo." & vbCrLf)
|
||||||
|
Response.Write("echo *** WARNING: The following printers require manual installation ***" & vbCrLf)
|
||||||
|
For Each printerKey In skippedPrinters.Keys
|
||||||
|
Set printer = skippedPrinters(printerKey)
|
||||||
|
Response.Write("echo - " & printer("standardname") & " (" & printer("vendor") & ")" & vbCrLf)
|
||||||
|
Next
|
||||||
|
Response.Write("echo." & vbCrLf)
|
||||||
|
End If
|
||||||
|
|
||||||
|
' Process non-HP/Xerox printers with specific installers (e.g., HID card printers)
|
||||||
For Each printerKey In specificInstallers.Keys
|
For Each printerKey In specificInstallers.Keys
|
||||||
Set printer = specificInstallers(printerKey)
|
Set printer = specificInstallers(printerKey)
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user