<%@ CODEPAGE=65001 %> <% '------------------------------------------------------------ ' ' Microsoft Internet Printing Project ' ' Copyright (c) Microsoft Corporation. All rights reserved. ' ' '------------------------------------------------------------ option explicit %> <% CheckSession Response.Expires = 0 Dim strPrinter, strLocal, strJobEta Dim objPrinter, objQueue strPrinter = request("eprinter") If Len(strPrinter) > MAX_ENCODED_PRINTER_NAME_LENGTH Then Call ErrorHandler(OleCvt.ASPString(IDS_ASP_INVALID_ARG)) Else strPrinter = OleCvt.DecodeUnicodeName(strPrinter) End If strLocal = session(LOCAL_SERVER) Set objQueue = GetObject("WinNT://" & session(COMPUTER) & "/" & strPrinter) Dim strTitle strTitle = LARGE_FONT_TAG & OleCvt.ASPString2(IDS_ASP_1_ON_2, strCleanString (GetFriendlyName (objQueue.PrinterName, session(COMPUTER))), session(LOCAL_SERVER)) & END_FONT Set objPrinter = Server.CreateObject(PROGID_HELPER) On Error Resume Next objPrinter.open "\\" & session(COMPUTER) & "\" & strPrinter If Err Then Call ErrorHandler ( OleCvt.ASPString1(IDS_ASP_OPEN_PRINTER, strPrinter) ) End If strJobEta = JobEtaInfo (objPrinter) objPrinter.Close %> >

<% =Write (strTitle) %> <% =Write(strJobEta) %>