From 84c212065276a72b3ab3a9e7d688d60344f707e9 Mon Sep 17 00:00:00 2001 From: cproudlock Date: Fri, 19 Dec 2025 16:38:38 -0500 Subject: [PATCH] Add printer QR code printing and Windows name auto-update MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit - Add printerqrcode.asp for single printer QR code labels (ULINE S-20135) - Add printerqrbatch.asp for batch printing multiple printers (6 per page) - Add auto-update of Windows name when changing associated machine - Windows name follows naming standard: [CSF]-[Machine]-[Vendor][Model] - Remove UDC integrations from displaymachine.asp - Add toner_inventory.csv for HP printer toner tracking - Fix printerqrbatch.asp to show all printers, not just CSF ones 🤖 Generated with [Claude Code](https://claude.com/claude-code) Co-Authored-By: Claude Opus 4.5 --- displaymachine.asp | 354 ------ displayprinter.asp | 2641 ++++++++++++++++++++++--------------------- printerqrbatch.asp | 284 +++++ printerqrcode.asp | 154 +++ toner_inventory.csv | 49 + 5 files changed, 1844 insertions(+), 1638 deletions(-) create mode 100644 printerqrbatch.asp create mode 100644 printerqrcode.asp create mode 100644 toner_inventory.csv diff --git a/displaymachine.asp b/displaymachine.asp index 48256ad..6958095 100644 --- a/displaymachine.asp +++ b/displaymachine.asp @@ -113,23 +113,6 @@ Response.End End If - ' Check if machine has UDC data (only for equipment with machinenumber) - Dim rsUDCCheck, hasUDCData, strSQL2, machineNum - hasUDCData = False - machineNum = rs("machinenumber") & "" - If machineNum <> "" Then - strSQL2 = "SELECT COUNT(*) as cnt FROM udcparts p " & _ - "JOIN udcsessions s ON p.sessionid = s.sessionid " & _ - "WHERE s.machinenumber = ?" - Set rsUDCCheck = ExecuteParameterizedQuery(objConn, strSQL2, Array(machineNum)) - If Not rsUDCCheck Is Nothing Then - If Not rsUDCCheck.EOF Then - If CLng(rsUDCCheck("cnt") & "0") > 0 Then hasUDCData = True - End If - rsUDCCheck.Close - Set rsUDCCheck = Nothing - End If - End If %> @@ -192,11 +175,6 @@
    • -<% End If %> -<% If hasUDCData Then %> -
  • - -
    • <% End If %>
  • @@ -819,338 +797,6 @@ End If -<% End If %> -<% If hasUDCData Then %> -
    -
    UDC Performance Data
    - - -
    -<% -' Get today's UDC stats for this machine -Dim rsUDCToday, todayParts, todayOOT, todayAvgCycle, todayLastBadge -strSQL2 = "SELECT COUNT(*) as partstoday, " & _ - "SUM(ootcount) as oottoday, " & _ - "AVG(cycletime) as avgcycle, " & _ - "(SELECT badgenumber FROM udcparts p2 JOIN udcsessions s2 ON p2.sessionid = s2.sessionid " & _ - " WHERE s2.machinenumber = ? ORDER BY p2.programend DESC LIMIT 1) as lastbadge " & _ - "FROM udcparts p " & _ - "JOIN udcsessions s ON p.sessionid = s.sessionid " & _ - "WHERE s.machinenumber = ? AND DATE(p.programstart) = CURDATE()" -Set rsUDCToday = ExecuteParameterizedQuery(objConn, strSQL2, Array(rs("machinenumber") & "", rs("machinenumber") & "")) -If Not rsUDCToday.EOF Then - todayParts = CLng(rsUDCToday("partstoday") & "0") - todayOOT = CLng(rsUDCToday("oottoday") & "0") - If Not IsNull(rsUDCToday("avgcycle")) Then - todayAvgCycle = FormatNumber(CDbl(rsUDCToday("avgcycle")) / 60, 1) - Else - todayAvgCycle = "0" - End If - todayLastBadge = rsUDCToday("lastbadge") & "" -Else - todayParts = 0 - todayOOT = 0 - todayAvgCycle = "0" - todayLastBadge = "" -End If -rsUDCToday.Close -Set rsUDCToday = Nothing -%> -
    -
    -
    -

    <%=todayParts%>

    - Parts Today -
    -
    -
    -
    -
    -
    -

    <%=todayAvgCycle%>m

    - Avg Cycle Time -
    -
    -
    -
    -
    text-white"> -
    -

    <%=todayOOT%>

    - OOT Today -
    -
    -
    -
    -
    -
    -

    <%If todayLastBadge <> "" Then Response.Write(Server.HTMLEncode(todayLastBadge)) Else Response.Write("-")%>

    - Current Operator -
    -
    -
    -
    - - -
    Recent Activity
    -
    - - - - - - - - - - -<% -' Get recent activity (violations + badge changes) for this machine -Dim rsActivity, actBadge -strSQL2 = "SELECT * FROM (" & _ - "SELECT eventtime, 'Violation' as acttype, badgenumber, " & _ - "CONCAT(crossingdesc, ': ', previousval, ' -> ', currentval) as details " & _ - "FROM udcviolations WHERE machinenumber = ? " & _ - "UNION ALL " & _ - "SELECT eventtime, 'Badge Change' as acttype, badgenumber, details " & _ - "FROM udcheaderupdates WHERE machinenumber = ? " & _ - ") combined ORDER BY eventtime DESC LIMIT 15" -Set rsActivity = ExecuteParameterizedQuery(objConn, strSQL2, Array(rs("machinenumber") & "", rs("machinenumber") & "")) -If rsActivity.EOF Then - Response.Write("") -Else - Do While Not rsActivity.EOF - If rsActivity("acttype") = "Violation" Then - actBadge = "Setting Change" - Else - actBadge = "Badge" - End If - - Response.Write("") - Response.Write("") - Response.Write("") - Response.Write("") - Response.Write("") - Response.Write("") - rsActivity.MoveNext - Loop -End If -rsActivity.Close -Set rsActivity = Nothing -%> - -
    TimeTypeBadgeDetails
    No recent activity
    " & Server.HTMLEncode(rsActivity("eventtime") & "") & "" & actBadge & "" & Server.HTMLEncode(rsActivity("badgenumber") & "") & "" & Server.HTMLEncode(rsActivity("details") & "") & "
    -
    - - -
    Tool Health
    -<% -' Get tool health summary for this machine (last 30 days) -Dim rsToolSummary, toolCount, toolMeasurements, toolOOT, toolLastCheck -strSQL2 = "SELECT COUNT(DISTINCT t.toolnumber) as unique_tools, " & _ - "COUNT(*) as total_measurements, " & _ - "SUM(t.oot) as oot_count, " & _ - "MAX(t.eventtime) as last_check " & _ - "FROM udctooldata t " & _ - "JOIN udcsessions s ON t.sessionid = s.sessionid " & _ - "WHERE s.machinenumber = ? AND t.eventtime >= DATE_SUB(NOW(), INTERVAL 30 DAY)" -Set rsToolSummary = ExecuteParameterizedQuery(objConn, strSQL2, Array(rs("machinenumber") & "")) -If Not rsToolSummary.EOF Then - toolCount = CLng(rsToolSummary("unique_tools") & "0") - toolMeasurements = CLng(rsToolSummary("total_measurements") & "0") - toolOOT = CLng(rsToolSummary("oot_count") & "0") - toolLastCheck = rsToolSummary("last_check") & "" -Else - toolCount = 0 - toolMeasurements = 0 - toolOOT = 0 - toolLastCheck = "" -End If -rsToolSummary.Close -Set rsToolSummary = Nothing - -If toolMeasurements > 0 Then -%> - -
    -
    -
    -
    -

    <%=toolCount%>

    - Tools Monitored -
    -
    -
    -
    -
    -
    -

    <%=toolMeasurements%>

    - Measurements (30d) -
    -
    -
    -
    -
    text-white"> -
    -

    <%=toolOOT%>

    - Out of Tolerance -
    -
    -
    -
    -
    -
    -
    <%If toolLastCheck <> "" Then Response.Write(Server.HTMLEncode(Left(toolLastCheck, 16))) Else Response.Write("-")%>
    - Last Tool Check -
    -
    -
    -
    - - -
    - - - - - - - - - - - - -<% -' Get tool status by tool number -Dim rsTools, toolStatus, toolStatusClass, toolAvgDev, toolMaxDev, toolDevPct -strSQL2 = "SELECT t.toolnumber, " & _ - "MAX(t.description) as description, " & _ - "COUNT(*) as measurements, " & _ - "ROUND(AVG(t.deviation), 4) as avg_deviation, " & _ - "ROUND(MAX(ABS(t.deviation)), 4) as max_deviation, " & _ - "MAX(ABS(t.minval)) as tolerance_ref, " & _ - "SUM(t.oot) as oot_count " & _ - "FROM udctooldata t " & _ - "JOIN udcsessions s ON t.sessionid = s.sessionid " & _ - "WHERE s.machinenumber = ? AND t.eventtime >= DATE_SUB(NOW(), INTERVAL 30 DAY) " & _ - "GROUP BY t.toolnumber " & _ - "ORDER BY oot_count DESC, measurements DESC " & _ - "LIMIT 10" -Set rsTools = ExecuteParameterizedQuery(objConn, strSQL2, Array(rs("machinenumber") & "")) -If rsTools.EOF Then - Response.Write("") -Else - Do While Not rsTools.EOF - ' Calculate status based on OOT and deviation - If CLng(rsTools("oot_count") & "0") > 0 Then - toolStatus = "OOT" - toolStatusClass = "bg-danger text-white" - Else - toolStatus = " OK" - toolStatusClass = "" - End If - - If Not IsNull(rsTools("avg_deviation")) Then - toolAvgDev = FormatNumber(CDbl(rsTools("avg_deviation")), 4) - Else - toolAvgDev = "-" - End If - If Not IsNull(rsTools("max_deviation")) Then - toolMaxDev = FormatNumber(CDbl(rsTools("max_deviation")), 4) - Else - toolMaxDev = "-" - End If - - Response.Write("") - Response.Write("") - Response.Write("") - Response.Write("") - Response.Write("") - Response.Write("") - Response.Write("") - Response.Write("") - rsTools.MoveNext - Loop -End If -rsTools.Close -Set rsTools = Nothing -%> - -
    Tool #DescriptionChecksAvg DevMax DevStatus
    No tool data available
    " & Server.HTMLEncode(rsTools("toolnumber") & "") & "" & Server.HTMLEncode(Left(rsTools("description") & "", 30)) & "" & rsTools("measurements") & "" & toolAvgDev & "" & toolMaxDev & "" & toolStatus & "
    -
    -<% -' Check for recent OOT events -Dim rsOOT, ootEventCount -strSQL2 = "SELECT COUNT(*) as cnt FROM udctooldata t " & _ - "JOIN udcsessions s ON t.sessionid = s.sessionid " & _ - "WHERE s.machinenumber = ? AND t.oot = 1 AND t.eventtime >= DATE_SUB(NOW(), INTERVAL 7 DAY)" -Set rsOOT = ExecuteParameterizedQuery(objConn, strSQL2, Array(rs("machinenumber") & "")) -ootEventCount = 0 -If Not rsOOT.EOF Then ootEventCount = CLng(rsOOT("cnt") & "0") -rsOOT.Close -Set rsOOT = Nothing - -If ootEventCount > 0 Then -%> - -
    Recent Out-of-Tolerance Events (7 days)
    -
    - - - - - - - - - - - - -<% -Dim rsOOTEvents -strSQL2 = "SELECT t.eventtime, t.toolnumber, t.description, " & _ - "t.actualval, t.minval, t.maxval, t.deviation " & _ - "FROM udctooldata t " & _ - "JOIN udcsessions s ON t.sessionid = s.sessionid " & _ - "WHERE s.machinenumber = ? AND t.oot = 1 AND t.eventtime >= DATE_SUB(NOW(), INTERVAL 7 DAY) " & _ - "ORDER BY t.eventtime DESC LIMIT 10" -Set rsOOTEvents = ExecuteParameterizedQuery(objConn, strSQL2, Array(rs("machinenumber") & "")) -Do While Not rsOOTEvents.EOF - Response.Write("") - Response.Write("") - Response.Write("") - Response.Write("") - Response.Write("") - Response.Write("") - Response.Write("") - Response.Write("") - rsOOTEvents.MoveNext -Loop -rsOOTEvents.Close -Set rsOOTEvents = Nothing -%> - -
    TimeTool #DescriptionActualMin/MaxDeviation
    " & Server.HTMLEncode(rsOOTEvents("eventtime") & "") & "" & Server.HTMLEncode(rsOOTEvents("toolnumber") & "") & "" & Server.HTMLEncode(Left(rsOOTEvents("description") & "", 25)) & "" & FormatNumber(CDbl(rsOOTEvents("actualval") & "0"), 4) & "" & FormatNumber(CDbl(rsOOTEvents("minval") & "0"), 4) & " / " & FormatNumber(CDbl(rsOOTEvents("maxval") & "0"), 4) & "" & FormatNumber(CDbl(rsOOTEvents("deviation") & "0"), 4) & "
    -
    -<% -End If ' ootEventCount > 0 -Else ' toolMeasurements = 0 -%> -
    - No tool measurement data available for this machine. -
    -<% -End If ' toolMeasurements > 0 -%> - - -
    - " class="btn btn-primary"> - View Full UDC Dashboard - -
    -
    <% End If %> diff --git a/displayprinter.asp b/displayprinter.asp index 02d813e..bde659f 100644 --- a/displayprinter.asp +++ b/displayprinter.asp @@ -1,1284 +1,1357 @@ -<% -'============================================================================= -' FILE: displayprinter.asp -' PURPOSE: Display detailed printer information with edit capability -' SECURITY: Parameterized queries, HTML encoding, input validation -' UPDATED: 2025-10-27 - Migrated to secure patterns -'============================================================================= -%> - - - - - - - - - - -<% - theme = Request.Cookies("theme") - IF theme = "" THEN - theme="bg-theme1" - END IF - - '============================================================================= - ' SECURITY: Validate printerid parameter - '============================================================================= - Dim printerid - printerid = GetSafeInteger("QS", "printerid", 0, 1, 999999) - - IF printerid = 0 THEN - objConn.Close - Response.Redirect("default.asp") - Response.End - END IF - - '============================================================================= - ' SECURITY: Use parameterized query to prevent SQL injection - ' NOTE: Explicitly select printers.maptop and printers.mapleft (not from machines) - '============================================================================= - strSQL = "SELECT machines.*, models.*, vendors.*, printers.*, " &_ - "printers.maptop AS printer_maptop, printers.mapleft AS printer_mapleft " &_ - "FROM machines,models,vendors,printers WHERE " &_ - "printers.machineid=machines.machineid AND "&_ - "printers.modelid=models.modelnumberid AND "&_ - "models.vendorid=vendors.vendorid AND "&_ - "printers.printerid=?" - set rs = ExecuteParameterizedQuery(objConn, strSQL, Array(printerid)) - - ' Check if printer exists - If rs.EOF Then - rs.Close - Set rs = Nothing - objConn.Close - Response.Redirect("default.asp") - Response.End - End If - - Dim machineid - machineid = rs("machineid") -%> - - - - -
    - - -
    - - - - -
    - -
    -
    - -
    -
    -
    -
    - " alt="Card image cap"> -
    -
    - " alt="profile-image" class="profile"> -
    <%=Server.HTMLEncode(rs("vendor") & "")%>
    -

    " title="Click to Access Support Docs" target="_blank"><%=Server.HTMLEncode(rs("modelnumber") & "")%>

    -
    -
    -
    -
    -
    -
    - -
    -
    -
    Configuration
    -
    -
    -

    Vendor:

    -

    Model:

    -

    Serial:

    -

    Location:

    -

    IP:

    -

    FQDN:

    -

    PIN:

    -

    Driver:

    -

    CSF Name:

    -

    Windows Name:

    -
    -
    -<% - Dim vendorVal, modelVal, serialVal, machineVal, ipVal, fqdnVal, pinVal, csfVal, winNameVal - - ' Get values and default to N/A if empty - vendorVal = rs("vendor") & "" - If vendorVal = "" Then vendorVal = "N/A" - - modelVal = rs("modelnumber") & "" - If modelVal = "" Then modelVal = "N/A" - - serialVal = rs("serialnumber") & "" - If serialVal = "" Then serialVal = "N/A" - - machineVal = rs("machinenumber") & "" - If machineVal = "" Then machineVal = "N/A" - - ipVal = rs("ipaddress") & "" - If ipVal = "" Then ipVal = "N/A" - - fqdnVal = rs("fqdn") & "" - If fqdnVal = "" Then fqdnVal = "N/A" - - pinVal = rs("printerpin") & "" - If pinVal = "" Then pinVal = "N/A" - - csfVal = rs("printercsfname") & "" - If csfVal = "" Then csfVal = "N/A" - - winNameVal = rs("printerwindowsname") & "" - If winNameVal = "" Then winNameVal = "N/A" -%> -

    <%=Server.HTMLEncode(vendorVal)%>

    -

    -<% - If modelVal <> "N/A" And rs("documentationpath") & "" <> "" Then - Response.Write("" & Server.HTMLEncode(modelVal) & "") - Else - Response.Write(Server.HTMLEncode(modelVal)) - End If -%> -

    -

    <%=Server.HTMLEncode(serialVal)%>

    -

    -<% - If machineVal <> "N/A" Then -%> - - <%=Server.HTMLEncode(machineVal)%> - -<% - Else - Response.Write("N/A") - End If -%> -

    -

    -<% - If ipVal <> "N/A" Then - Response.Write("" & Server.HTMLEncode(ipVal) & "") - Else - Response.Write("N/A") - End If -%> -

    -

    <%=Server.HTMLEncode(fqdnVal)%>

    -

    <%=Server.HTMLEncode(pinVal)%>

    -

    -<% - ' Driver download - use icon link to maintain alignment - IF rs("installpath") & "" <> "" THEN - response.write (" Specific Installer") - ELSE - response.write (" Universal Installer") - END IF -%> -

    -

    <%=Server.HTMLEncode(csfVal)%>

    -

    <%=Server.HTMLEncode(winNameVal)%>

    -
    -
    -<% -' Get Zabbix data for this printer (cached) - now includes all supplies -Dim printerIP, cachedData, zabbixConnected, pingStatus, suppliesJSON -Dim statusBadge, statusIcon, statusColor - -printerIP = rs("ipaddress") - -' Get all supplies data (toner, ink, drums, maintenance kits, etc.) -' Returns array: [zabbixConnected, pingStatus, suppliesJSON] -cachedData = GetAllPrinterSuppliesCached(printerIP) - -' Extract data from array -zabbixConnected = cachedData(0) -pingStatus = cachedData(1) -suppliesJSON = cachedData(2) -%> -
    - Supply Status -<% -' Display printer online/offline status badge -If pingStatus = "1" Then - Response.Write(" Online") -ElseIf pingStatus = "0" Then - Response.Write(" Offline") -Else - Response.Write(" Unknown") -End If -%> -
    -
    -<% -If zabbixConnected <> "1" Then - ' Show error details - If zabbixConnected = "" Then - Response.Write("
    Unable to connect to Zabbix monitoring server (empty response)
    ") - Else - Response.Write("
    Zabbix Connection Error:
    " & Server.HTMLEncode(zabbixConnected) & "
    ") - End If -ElseIf suppliesJSON = "" Or IsNull(suppliesJSON) Then - Response.Write("
    No supply data available for this printer in Zabbix (IP: " & printerIP & ")
    ") -Else - ' Parse the JSON data for all supply items - Dim itemStart, itemEnd, itemBlock, itemName, itemValue - Dim namePos, nameStart, nameEnd, valuePos, valueStart, valueEnd - Dim currentPos, hasData - - hasData = False - - ' Declare loop variables outside the loop to avoid "Name redefined" error - Dim numericValue, progressClass, displayValue, isWaste - - ' Find all items with "Level" in the name (toner, ink, drums, maintenance kits, etc.) - currentPos = 1 - Do While currentPos > 0 - itemStart = InStr(currentPos, suppliesJSON, "{""itemid""") - If itemStart = 0 Then Exit Do - - itemEnd = InStr(itemStart + 1, suppliesJSON, "},") - If itemEnd = 0 Then - itemEnd = InStr(itemStart + 1, suppliesJSON, "}]") - End If - If itemEnd = 0 Then Exit Do - - itemBlock = Mid(suppliesJSON, itemStart, itemEnd - itemStart + 1) - - ' Extract name - namePos = InStr(itemBlock, """name"":""") - If namePos > 0 Then - nameStart = namePos + 8 - nameEnd = InStr(nameStart, itemBlock, """") - itemName = Mid(itemBlock, nameStart, nameEnd - nameStart) - Else - itemName = "" - End If - - ' Only process items with "Level" in the name - If InStr(1, itemName, "Level", 1) > 0 Then - ' Extract value (lastvalue) - valuePos = InStr(itemBlock, """lastvalue"":""") - If valuePos > 0 Then - valueStart = valuePos + 13 - valueEnd = InStr(valueStart, itemBlock, """") - itemValue = Mid(itemBlock, valueStart, valueEnd - valueStart) - - ' Try to convert to numeric - On Error Resume Next - numericValue = CDbl(itemValue) - If Err.Number = 0 Then - ' Check if this is a waste cartridge (invert the logic) - isWaste = (InStr(1, itemName, "Waste", 1) > 0) - - If isWaste Then - ' For waste cartridges: 0 = OK (100% capacity), 1 = Replace (0% capacity) - ' If binary (0 or 1), convert to percentage first - If numericValue <= 1 Then - ' Binary value: 0 or 1 - displayValue = 100 - (numericValue * 100) - Else - ' Percentage value: invert it - displayValue = 100 - numericValue - End If - - ' Color logic for waste capacity - If displayValue < 10 Then - progressClass = "bg-danger" ' Red for critical (< 10% capacity remaining) - ElseIf displayValue < 25 Then - progressClass = "bg-warning" ' Yellow for low (< 25% capacity remaining) - Else - progressClass = "bg-success" ' Green for good (>= 25% capacity remaining) - End If - Else - ' Normal supplies: show value as-is - displayValue = numericValue - - ' Normal color logic - If numericValue < 10 Then - progressClass = "bg-danger" ' Red for critical (< 10%) - ElseIf numericValue < 25 Then - progressClass = "bg-warning" ' Yellow for low (< 25%) - Else - progressClass = "bg-success" ' Green for good (>= 25%) - End If - End If - - ' Display supply level with progress bar - Response.Write("
    ") - Response.Write("
    ") - Response.Write("" & Server.HTMLEncode(itemName) & "") - Response.Write("" & Round(displayValue, 1) & "%") - Response.Write("
    ") - Response.Write("
    ") - Response.Write("
    " & Round(displayValue, 1) & "%
    ") - Response.Write("
    ") - Response.Write("
    ") - - hasData = True - End If - Err.Clear - On Error Goto 0 - End If - End If - - currentPos = itemEnd + 1 - Loop - - If Not hasData Then - Response.Write("
    No supply level data available for this printer in Zabbix (IP: " & printerIP & ")
    ") - End If -End If -%> -
    -
    -
    - -
    -
    -
    -
    - -
    - -
    -
    -
    - -
    -
    - -
    - -
    -
    - - - -
    -
    -
    - -
    - " placeholder="<%=Server.HTMLEncode(rs("serialnumber") & "")%>"> -
    -
    -
    - -
    - " placeholder="<%=Server.HTMLEncode(rs("serialnumber") & "")%>" onchange="updateFQDN()"> -
    -
    -
    - -
    - " placeholder="<%=Server.HTMLEncode(rs("fqdn") & "")%>"> -
    -
    -
    - -
    - " placeholder="<%=Server.HTMLEncode(rs("printercsfname") & "")%>"> -
    -
    -
    - -
    - " placeholder="e.g., 012345"> - Leading zeros are preserved -
    -
    -
    - -
    - " placeholder="<%=Server.HTMLEncode(rs("printerwindowsname") & "")%>"> -
    -
    -
    - -
    - " placeholder="e.g., drivers/HP/LJ400.exe"> - Path to specific driver installer (leave blank to use universal driver) -
    -
    -
    - -
    - -
    -
    -<% - Dim currentMapTop, currentMapLeft - ' Use printer-specific map coordinates (not machine coordinates) - If IsNull(rs("printer_maptop")) Or rs("printer_maptop") = "" Then - currentMapTop = "50" - Else - currentMapTop = rs("printer_maptop") - End If - If IsNull(rs("printer_mapleft")) Or rs("printer_mapleft") = "" Then - currentMapLeft = "50" - Else - currentMapLeft = rs("printer_mapleft") - End If -%> - - - - -
    - -
    - -
    - Current position: X=<%=Server.HTMLEncode(currentMapLeft)%>, Y=<%=Server.HTMLEncode(currentMapTop)%> -
    -
    -
    -
    - -
    -
    - -
    -
    -
    - -
    -
    -
    -
    -
    - -
    - - -
    - - -
    - -
    - - - - - -
    -
    -
    -
    -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    -
    -
    - Select Printer Location - -
    -
    -
    -
    -
    - Click on the map to select a location -
    - - -
    -
    -
    -
    - - - - - - - -<% -'============================================================================= -' CLEANUP -'============================================================================= -objConn.Close -%> \ No newline at end of file +<% +'============================================================================= +' FILE: displayprinter.asp +' PURPOSE: Display detailed printer information with edit capability +' SECURITY: Parameterized queries, HTML encoding, input validation +' UPDATED: 2025-10-27 - Migrated to secure patterns +'============================================================================= +%> + + + + + + + + + + +<% + theme = Request.Cookies("theme") + IF theme = "" THEN + theme="bg-theme1" + END IF + + '============================================================================= + ' SECURITY: Validate printerid parameter + '============================================================================= + Dim printerid + printerid = GetSafeInteger("QS", "printerid", 0, 1, 999999) + + IF printerid = 0 THEN + objConn.Close + Response.Redirect("default.asp") + Response.End + END IF + + '============================================================================= + ' SECURITY: Use parameterized query to prevent SQL injection + ' NOTE: Explicitly select printers.maptop and printers.mapleft (not from machines) + '============================================================================= + strSQL = "SELECT machines.*, models.*, vendors.*, printers.*, " &_ + "printers.maptop AS printer_maptop, printers.mapleft AS printer_mapleft " &_ + "FROM machines,models,vendors,printers WHERE " &_ + "printers.machineid=machines.machineid AND "&_ + "printers.modelid=models.modelnumberid AND "&_ + "models.vendorid=vendors.vendorid AND "&_ + "printers.printerid=?" + set rs = ExecuteParameterizedQuery(objConn, strSQL, Array(printerid)) + + ' Check if printer exists + If rs.EOF Then + rs.Close + Set rs = Nothing + objConn.Close + Response.Redirect("default.asp") + Response.End + End If + + Dim machineid + machineid = rs("machineid") +%> + + + + +
    + + +
    + + + + +
    + +
    +
    + +
    +
    +
    +
    + " alt="Card image cap"> +
    +
    + " alt="profile-image" class="profile"> +
    <%=Server.HTMLEncode(rs("vendor") & "")%>
    +

    " title="Click to Access Support Docs" target="_blank"><%=Server.HTMLEncode(rs("modelnumber") & "")%>

    + Print QR Code +
    +
    +
    +
    +
    +
    + +
    +
    +
    Configuration
    +
    +
    +

    Vendor:

    +

    Model:

    +

    Serial:

    +

    Location:

    +

    IP:

    +

    FQDN:

    +

    PIN:

    +

    Driver:

    +

    CSF Name:

    +

    Windows Name:

    +
    +
    +<% + Dim vendorVal, modelVal, serialVal, machineVal, ipVal, fqdnVal, pinVal, csfVal, winNameVal + + ' Get values and default to N/A if empty + vendorVal = rs("vendor") & "" + If vendorVal = "" Then vendorVal = "N/A" + + modelVal = rs("modelnumber") & "" + If modelVal = "" Then modelVal = "N/A" + + serialVal = rs("serialnumber") & "" + If serialVal = "" Then serialVal = "N/A" + + machineVal = rs("machinenumber") & "" + If machineVal = "" Then machineVal = "N/A" + + ipVal = rs("ipaddress") & "" + If ipVal = "" Then ipVal = "N/A" + + fqdnVal = rs("fqdn") & "" + If fqdnVal = "" Then fqdnVal = "N/A" + + pinVal = rs("printerpin") & "" + If pinVal = "" Then pinVal = "N/A" + + csfVal = rs("printercsfname") & "" + If csfVal = "" Then csfVal = "N/A" + + winNameVal = rs("printerwindowsname") & "" + If winNameVal = "" Then winNameVal = "N/A" +%> +

    <%=Server.HTMLEncode(vendorVal)%>

    +

    +<% + If modelVal <> "N/A" And rs("documentationpath") & "" <> "" Then + Response.Write("" & Server.HTMLEncode(modelVal) & "") + Else + Response.Write(Server.HTMLEncode(modelVal)) + End If +%> +

    +

    <%=Server.HTMLEncode(serialVal)%>

    +

    +<% + If machineVal <> "N/A" Then +%> + + <%=Server.HTMLEncode(machineVal)%> + +<% + Else + Response.Write("N/A") + End If +%> +

    +

    +<% + If ipVal <> "N/A" Then + Response.Write("" & Server.HTMLEncode(ipVal) & "") + Else + Response.Write("N/A") + End If +%> +

    +

    <%=Server.HTMLEncode(fqdnVal)%>

    +

    <%=Server.HTMLEncode(pinVal)%>

    +

    +<% + ' Driver download - use icon link to maintain alignment + IF rs("installpath") & "" <> "" THEN + response.write (" Specific Installer") + ELSE + response.write (" Universal Installer") + END IF +%> +

    +

    <%=Server.HTMLEncode(csfVal)%>

    +

    <%=Server.HTMLEncode(winNameVal)%>

    +
    +
    +<% +' Get Zabbix data for this printer (cached) - now includes all supplies +Dim printerIP, cachedData, zabbixConnected, pingStatus, suppliesJSON +Dim statusBadge, statusIcon, statusColor + +printerIP = rs("ipaddress") + +' Get all supplies data (toner, ink, drums, maintenance kits, etc.) +' Returns array: [zabbixConnected, pingStatus, suppliesJSON] +cachedData = GetAllPrinterSuppliesCached(printerIP) + +' Extract data from array +zabbixConnected = cachedData(0) +pingStatus = cachedData(1) +suppliesJSON = cachedData(2) +%> +
    + Supply Status +<% +' Display printer online/offline status badge +If pingStatus = "1" Then + Response.Write(" Online") +ElseIf pingStatus = "0" Then + Response.Write(" Offline") +Else + Response.Write(" Unknown") +End If +%> +
    +
    +<% +If zabbixConnected <> "1" Then + ' Show error details + If zabbixConnected = "" Then + Response.Write("
    Unable to connect to Zabbix monitoring server (empty response)
    ") + Else + Response.Write("
    Zabbix Connection Error:
    " & Server.HTMLEncode(zabbixConnected) & "
    ") + End If +ElseIf suppliesJSON = "" Or IsNull(suppliesJSON) Then + Response.Write("
    No supply data available for this printer in Zabbix (IP: " & printerIP & ")
    ") +Else + ' Parse the JSON data for all supply items + Dim itemStart, itemEnd, itemBlock, itemName, itemValue + Dim namePos, nameStart, nameEnd, valuePos, valueStart, valueEnd + Dim currentPos, hasData + + hasData = False + + ' Declare loop variables outside the loop to avoid "Name redefined" error + Dim numericValue, progressClass, displayValue, isWaste + + ' Find all items with "Level" in the name (toner, ink, drums, maintenance kits, etc.) + currentPos = 1 + Do While currentPos > 0 + itemStart = InStr(currentPos, suppliesJSON, "{""itemid""") + If itemStart = 0 Then Exit Do + + itemEnd = InStr(itemStart + 1, suppliesJSON, "},") + If itemEnd = 0 Then + itemEnd = InStr(itemStart + 1, suppliesJSON, "}]") + End If + If itemEnd = 0 Then Exit Do + + itemBlock = Mid(suppliesJSON, itemStart, itemEnd - itemStart + 1) + + ' Extract name + namePos = InStr(itemBlock, """name"":""") + If namePos > 0 Then + nameStart = namePos + 8 + nameEnd = InStr(nameStart, itemBlock, """") + itemName = Mid(itemBlock, nameStart, nameEnd - nameStart) + Else + itemName = "" + End If + + ' Only process items with "Level" in the name + If InStr(1, itemName, "Level", 1) > 0 Then + ' Extract value (lastvalue) + valuePos = InStr(itemBlock, """lastvalue"":""") + If valuePos > 0 Then + valueStart = valuePos + 13 + valueEnd = InStr(valueStart, itemBlock, """") + itemValue = Mid(itemBlock, valueStart, valueEnd - valueStart) + + ' Try to convert to numeric + On Error Resume Next + numericValue = CDbl(itemValue) + If Err.Number = 0 Then + ' Check if this is a waste cartridge (invert the logic) + isWaste = (InStr(1, itemName, "Waste", 1) > 0) + + If isWaste Then + ' For waste cartridges: 0 = OK (100% capacity), 1 = Replace (0% capacity) + ' If binary (0 or 1), convert to percentage first + If numericValue <= 1 Then + ' Binary value: 0 or 1 + displayValue = 100 - (numericValue * 100) + Else + ' Percentage value: invert it + displayValue = 100 - numericValue + End If + + ' Color logic for waste capacity + If displayValue < 10 Then + progressClass = "bg-danger" ' Red for critical (< 10% capacity remaining) + ElseIf displayValue < 25 Then + progressClass = "bg-warning" ' Yellow for low (< 25% capacity remaining) + Else + progressClass = "bg-success" ' Green for good (>= 25% capacity remaining) + End If + Else + ' Normal supplies: show value as-is + displayValue = numericValue + + ' Normal color logic + If numericValue < 10 Then + progressClass = "bg-danger" ' Red for critical (< 10%) + ElseIf numericValue < 25 Then + progressClass = "bg-warning" ' Yellow for low (< 25%) + Else + progressClass = "bg-success" ' Green for good (>= 25%) + End If + End If + + ' Display supply level with progress bar + Response.Write("
    ") + Response.Write("
    ") + Response.Write("" & Server.HTMLEncode(itemName) & "") + Response.Write("" & Round(displayValue, 1) & "%") + Response.Write("
    ") + Response.Write("
    ") + Response.Write("
    " & Round(displayValue, 1) & "%
    ") + Response.Write("
    ") + Response.Write("
    ") + + hasData = True + End If + Err.Clear + On Error Goto 0 + End If + End If + + currentPos = itemEnd + 1 + Loop + + If Not hasData Then + Response.Write("
    No supply level data available for this printer in Zabbix (IP: " & printerIP & ")
    ") + End If +End If +%> +
    +
    +
    + +
    +
    +
    +
    + +
    + +
    +
    +
    + +
    +
    + +
    + +
    +
    + + + +
    +
    +
    + +
    + " placeholder="<%=Server.HTMLEncode(rs("serialnumber") & "")%>"> +
    +
    +
    + +
    + " placeholder="<%=Server.HTMLEncode(rs("serialnumber") & "")%>" onchange="updateFQDN()"> +
    +
    +
    + +
    + " placeholder="<%=Server.HTMLEncode(rs("fqdn") & "")%>"> +
    +
    +
    + +
    + " placeholder="<%=Server.HTMLEncode(rs("printercsfname") & "")%>"> +
    +
    +
    + +
    + " placeholder="e.g., 012345"> + Leading zeros are preserved +
    +
    +
    + +
    + " placeholder="<%=Server.HTMLEncode(rs("printerwindowsname") & "")%>"> + Auto-updates when you change the associated machine +
    +
    +
    + +
    + " placeholder="e.g., drivers/HP/LJ400.exe"> + Path to specific driver installer (leave blank to use universal driver) +
    +
    +
    + +
    + +
    +
    +<% + Dim currentMapTop, currentMapLeft + ' Use printer-specific map coordinates (not machine coordinates) + If IsNull(rs("printer_maptop")) Or rs("printer_maptop") = "" Then + currentMapTop = "50" + Else + currentMapTop = rs("printer_maptop") + End If + If IsNull(rs("printer_mapleft")) Or rs("printer_mapleft") = "" Then + currentMapLeft = "50" + Else + currentMapLeft = rs("printer_mapleft") + End If +%> + + + + +
    + +
    + +
    + Current position: X=<%=Server.HTMLEncode(currentMapLeft)%>, Y=<%=Server.HTMLEncode(currentMapTop)%> +
    +
    +
    +
    + +
    +
    + +
    +
    +
    + +
    +
    +
    +
    +
    + +
    + + +
    + + +
    + +
    + + + + + +
    +
    +
    +
    +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    +
    +
    + Select Printer Location + +
    +
    +
    +
    +
    + Click on the map to select a location +
    + + +
    +
    +
    +
    + + + + + + + +<% +'============================================================================= +' CLEANUP +'============================================================================= +objConn.Close +%> \ No newline at end of file diff --git a/printerqrbatch.asp b/printerqrbatch.asp new file mode 100644 index 0000000..cd0cec0 --- /dev/null +++ b/printerqrbatch.asp @@ -0,0 +1,284 @@ +<%@ Language=VBScript %> +<% +Option Explicit +Dim objConn, rs +%> + + + + + Batch Print QR Codes + + + + +<% +Dim strSQL +strSQL = "SELECT p.printerid, p.printercsfname, p.printerwindowsname, p.ipaddress, m.modelnumber " & _ + "FROM printers p LEFT JOIN models m ON p.modelid = m.modelnumberid " & _ + "WHERE p.isactive = 1 " & _ + "ORDER BY COALESCE(NULLIF(p.printercsfname, ''), p.printerwindowsname, CONCAT('Printer-', p.printerid))" +Set rs = objConn.Execute(strSQL) +%> +
    +
    +

    Batch Print Printer QR Codes

    +

    Select printers to print (6 per page):

    + +
    +<% +Dim displayName +Do While Not rs.EOF + displayName = rs("printercsfname") & "" + If displayName = "" Then + displayName = rs("printerwindowsname") & "" + End If + If displayName = "" Then + displayName = "Printer-" & rs("printerid") + End If +%> +
    , '<%=Server.HTMLEncode(Replace(rs("printercsfname") & "", "'", "\'"))%>', '<%=Server.HTMLEncode(Replace(rs("printerwindowsname") & "", "'", "\'"))%>', '<%=Server.HTMLEncode(Replace(rs("ipaddress") & "", "'", "\'"))%>', '<%=Server.HTMLEncode(Replace(rs("modelnumber") & "", "'", "\'"))%>')"> + "> + +
    +<% + rs.MoveNext +Loop +rs.Close +Set rs = Nothing +objConn.Close +%> +
    + +
    + Selected: 0 printers + (0 pages) +
    + + + + +
    +
    + +
    + +
    + + + + diff --git a/printerqrcode.asp b/printerqrcode.asp new file mode 100644 index 0000000..ef57233 --- /dev/null +++ b/printerqrcode.asp @@ -0,0 +1,154 @@ +<%@ Language=VBScript %> +<% +Option Explicit +Dim objConn, rs +%> + + + + + Print QR Code + + + + +<% +Dim printerid, strSQL, csfName, winName, ipAddr, modelName + +printerid = Request.QueryString("printerid") +If printerid = "" Then printerid = "0" +If Not IsNumeric(printerid) Then printerid = "0" + +strSQL = "SELECT p.printercsfname, p.printerwindowsname, p.ipaddress, mo.modelnumber FROM printers p LEFT JOIN models mo ON p.modelid = mo.modelnumberid WHERE p.printerid = " & CLng(printerid) +Set rs = objConn.Execute(strSQL) + +If rs.EOF Then + csfName = "NOT FOUND" + winName = "" + ipAddr = "" + modelName = "" +Else + csfName = rs("printercsfname") & "" + winName = rs("printerwindowsname") & "" + ipAddr = rs("ipaddress") & "" + modelName = rs("modelnumber") & "" +End If +rs.Close +Set rs = Nothing +objConn.Close +%> +
    + + +
    +
    +
    +
    <%=Server.HTMLEncode(modelName)%>
    +
    +
    +
    <%=Server.HTMLEncode(csfName)%>
    +
    +<% If winName <> "" Then %> +
    <%=Server.HTMLEncode(winName)%>
    +<% End If %> +<% If ipAddr <> "" Then %> +
    <%=Server.HTMLEncode(ipAddr)%>
    +<% End If %> +
    +
    +
    +
    +
    +
    +
    +
    +
    + + + diff --git a/toner_inventory.csv b/toner_inventory.csv new file mode 100644 index 0000000..6de1700 --- /dev/null +++ b/toner_inventory.csv @@ -0,0 +1,49 @@ +Toner Model,HP Part Number,Color,Quantity,Location,Compatible Printers,Notes +HP 42A,Q5942A,Black,0,,LaserJet 4250/4350,Standard yield ~10000 pages +HP 42X,Q5942X,Black,0,,LaserJet 4250/4350,High yield ~20000 pages +HP 90A,CE390A,Black,0,,LaserJet M601/M602/M603/M4555,Standard yield ~10000 pages +HP 90X,CE390X,Black,0,,LaserJet M602/M603/M4555,High yield ~24000 pages +HP 37A,CF237A,Black,0,,LaserJet M607/M608/M609/M631/M632/M633,Standard yield ~11000 pages +HP 37X,CF237X,Black,0,,LaserJet M607/M608/M609/M631/M632/M633,High yield ~25000 pages +HP 148A,W1480A,Black,0,,LaserJet Pro 4001/4002/4003/4004,Standard yield ~2900 pages +HP 148X,W1480X,Black,0,,LaserJet Pro 4001/4002/4003/4004,High yield ~9500 pages +HP 87A,CF287A,Black,0,,LaserJet M501/M506/M527,Standard yield ~9000 pages +HP 87X,CF287X,Black,0,,LaserJet M501/M506/M527,High yield ~18000 pages +HP 147A,W1470A,Black,0,,LaserJet M610/M611/M612/M406/M407,Standard yield ~10500 pages +HP 147X,W1470X,Black,0,,LaserJet M610/M611/M612/M406/M407,High yield ~25200 pages +HP 55A,CE255A,Black,0,,LaserJet P3015/M521/M525,Standard yield ~6000 pages +HP 55X,CE255X,Black,0,,LaserJet P3015/M521/M525,High yield ~12500 pages +HP 58A,CF258A,Black,0,,LaserJet Pro M404/M428,Standard yield ~3000 pages +HP 58X,CF258X,Black,0,,LaserJet Pro M404/M428,High yield ~10000 pages +HP 414A,W2020A,Black,0,,Color LaserJet Pro M454/M479,Standard yield ~2400 pages +HP 414A,W2021A,Cyan,0,,Color LaserJet Pro M454/M479,Standard yield ~2100 pages +HP 414A,W2022A,Yellow,0,,Color LaserJet Pro M454/M479,Standard yield ~2100 pages +HP 414A,W2023A,Magenta,0,,Color LaserJet Pro M454/M479,Standard yield ~2100 pages +HP 414X,W2020X,Black,0,,Color LaserJet Pro M454/M479,High yield ~7500 pages +HP 414X,W2021X,Cyan,0,,Color LaserJet Pro M454/M479,High yield ~6000 pages +HP 414X,W2022X,Yellow,0,,Color LaserJet Pro M454/M479,High yield ~6000 pages +HP 414X,W2023X,Magenta,0,,Color LaserJet Pro M454/M479,High yield ~6000 pages +HP 206A,W2110A,Black,0,,Color LaserJet Pro M254/M255/M282/M283,Standard yield ~1350 pages +HP 206A,W2111A,Cyan,0,,Color LaserJet Pro M254/M255/M282/M283,Standard yield ~1250 pages +HP 206A,W2112A,Yellow,0,,Color LaserJet Pro M254/M255/M282/M283,Standard yield ~1250 pages +HP 206A,W2113A,Magenta,0,,Color LaserJet Pro M254/M255/M282/M283,Standard yield ~1250 pages +HP 206X,W2110X,Black,0,,Color LaserJet Pro M254/M255/M282/M283,High yield ~3150 pages +HP 206X,W2111X,Cyan,0,,Color LaserJet Pro M254/M255/M282/M283,High yield ~2450 pages +HP 206X,W2112X,Yellow,0,,Color LaserJet Pro M254/M255/M282/M283,High yield ~2450 pages +HP 206X,W2113X,Magenta,0,,Color LaserJet Pro M254/M255/M282/M283,High yield ~2450 pages +HP 201A,CF400A,Black,0,,Color LaserJet Pro M252/M277,Standard yield ~1500 pages +HP 201A,CF401A,Cyan,0,,Color LaserJet Pro M252/M277,Standard yield ~1400 pages +HP 201A,CF402A,Yellow,0,,Color LaserJet Pro M252/M277,Standard yield ~1400 pages +HP 201A,CF403A,Magenta,0,,Color LaserJet Pro M252/M277,Standard yield ~1400 pages +HP 201X,CF400X,Black,0,,Color LaserJet Pro M252/M277,High yield ~2800 pages +HP 201X,CF401X,Cyan,0,,Color LaserJet Pro M252/M277,High yield ~2300 pages +HP 201X,CF402X,Yellow,0,,Color LaserJet Pro M252/M277,High yield ~2300 pages +HP 201X,CF403X,Magenta,0,,Color LaserJet Pro M252/M277,High yield ~2300 pages +HP 304A,CC530A,Black,0,,Color LaserJet CP2025/CM2320,Standard yield ~3500 pages +HP 304A,CC531A,Cyan,0,,Color LaserJet CP2025/CM2320,Standard yield ~2800 pages +HP 304A,CC532A,Yellow,0,,Color LaserJet CP2025/CM2320,Standard yield ~2800 pages +HP 304A,CC533A,Magenta,0,,Color LaserJet CP2025/CM2320,Standard yield ~2800 pages +HP 131A,CF210A,Black,0,,LaserJet Pro 200 M251/M276,Standard yield ~1600 pages +HP 131A,CF211A,Cyan,0,,LaserJet Pro 200 M251/M276,Standard yield ~1800 pages +HP 131A,CF212A,Yellow,0,,LaserJet Pro 200 M251/M276,Standard yield ~1800 pages +HP 131A,CF213A,Magenta,0,,LaserJet Pro 200 M251/M276,Standard yield ~1800 pages