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:
cproudlock
2025-12-08 13:34:03 -05:00
parent d28cc0f1d2
commit 0887f8df45

View File

@@ -204,16 +204,35 @@ Else
Set universalPrinters = Server.CreateObject("Scripting.Dictionary")
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
Set printer = printers(printerKey)
If printer("vendor") = "HP" Or printer("vendor") = "Xerox" Then
universalPrinters.Add printerKey, printer
If universalNames <> "" Then universalNames = universalNames & ","
universalNames = universalNames & printer("standardname")
ElseIf printer("installpath") <> "" Then
specificInstallers.Add printerKey, printer
Else
skippedPrinters.Add printerKey, printer
End If
Next
' Skip specific installers - all printers use universal installer now
' Process printers with specific installers first (silent mode)
' Warn about printers that can't be installed
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
Set printer = specificInstallers(printerKey)