<% ' Get cached printer list (refreshes every 5 minutes) Dim printerList, i, printer, image, installpath, machinenumber, machineid Dim vendor, modelnumber, documentationpath, printercsfname, ipaddress, serialnumber, islocationonly, isLocOnly printerList = GetPrinterListCached() ' Check if we have data On Error Resume Next If IsArray(printerList) And UBound(printerList) >= 0 Then On Error Goto 0 ' Loop through cached printer data For i = 0 To UBound(printerList) ' Extract data from array ' Array structure: printer, image, installpath, machinenumber, machineid, vendor, modelnumber, documentationpath, printercsfname, ipaddress, serialnumber, islocationonly printer = printerList(i, 0) image = printerList(i, 1) installpath = printerList(i, 2) machinenumber = printerList(i, 3) machineid = printerList(i, 4) vendor = printerList(i, 5) modelnumber = printerList(i, 6) documentationpath = printerList(i, 7) printercsfname = printerList(i, 8) ipaddress = printerList(i, 9) serialnumber = printerList(i, 10) ' Safely get islocationonly (might not exist in old cached data) On Error Resume Next islocationonly = printerList(i, 11) If Err.Number <> 0 Then islocationonly = 0 On Error Goto 0 Response.write("") ' Location column - just map icon Response.write("") ' Drivers column If installpath <> "" Then Response.write("") Else Response.write("") End If ' ID column Response.Write("") ' Machine column - link to machine (or printer if location only) ' Check if location only (1 = location only) isLocOnly = False If Not IsNull(islocationonly) And Not IsEmpty(islocationonly) Then ' Check if islocationonly equals 1 If CInt(islocationonly) = 1 Then isLocOnly = True End If End If If isLocOnly Then ' Location only - link to printer instead of machine Response.write("") Else ' Regular machine - link to machine Response.write("") End If %> <% Next Else ' No printers found Response.Write("") End If On Error Goto 0 objConn.Close %>

		ID	Machine	Vendor	Model	CSF	IP	Serial
") Response.write("") Response.write("") Response.write("") Response.write("				" & machinenumber & "	" & machinenumber & "	<%Response.Write(vendor)%>	<%Response.Write(modelnumber)%>	<%Response.Write(printercsfname)%>	<%Response.Write(ipaddress)%>	<%Response.Write(serialnumber)%>
No active printers found.