")
Response.Write(" ")
Response.Write(" ")
' Query all active HP and Xerox printers
Dim strSQL, rs
strSQL = "SELECT p.printerid, p.printerwindowsname, p.printercsfname, p.fqdn, p.ipaddress, " & _
"v.vendor, m.modelnumber, p.isactive, ma.alias, ma.machinenumber " & _
"FROM printers p " & _
"LEFT JOIN models m ON p.modelid = m.modelnumberid " & _
"LEFT JOIN vendors v ON m.vendorid = v.vendorid " & _
"LEFT JOIN machines ma ON p.machineid = ma.machineid " & _
"WHERE p.isactive = 1 " & _
"AND (v.vendor = 'HP' OR v.vendor = 'Xerox') " & _
"AND ((p.fqdn IS NOT NULL AND p.fqdn != '') OR (p.ipaddress IS NOT NULL AND p.ipaddress != '' AND p.ipaddress != 'USB')) " & _
"ORDER BY " & _
"CASE WHEN p.printercsfname IS NOT NULL AND p.printercsfname != '' AND p.printercsfname != 'NONE' THEN 0 ELSE 1 END, " & _
"p.printercsfname, COALESCE(ma.alias, ma.machinenumber), v.vendor, m.modelnumber"
Set rs = objConn.Execute(strSQL)
Dim printerName, csfName, vendor, model, machineAlias, machineNumber, machineName
Dim webLink, cmdLine
Do While Not rs.EOF
printerName = rs("printerwindowsname") & ""
csfName = rs("printercsfname") & ""
vendor = rs("vendor") & ""
model = rs("modelnumber") & ""
machineAlias = rs("alias") & ""
machineNumber = rs("machinenumber") & ""
' Get machine name
If machineAlias <> "" Then
machineName = machineAlias
Else
machineName = machineNumber
End If
' Generate URLs
webLink = "https://tsgwp00525.rd.ds.ge.com/shopdb/installprinter.asp?printer=" & Server.URLEncode(printerName)
cmdLine = "PrinterInstaller.exe /PRINTER=" & printerName
' Output table row
Response.Write("
")
Response.Write("
")
If csfName <> "" And csfName <> "NONE" Then
Response.Write(" " & Server.HTMLEncode(csfName) & " ")
End If
Response.Write(Server.HTMLEncode(printerName))
Response.Write("