<%@ 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 Const L_OpenPrinter_Text = "Open Printer: %1" strPrinter = OleCvt.DecodeUnicodeName (request ("eprinter")) strLocal = session(LOCAL_SERVER) Set objQueue = GetObject("WinNT://" & session(COMPUTER) & "/" & strPrinter) Dim strTitle Const L_PrinterOn_Text = "%1 on %2" strTitle = LARGE_FONT_TAG & RepString2(L_PrinterOn_Text, 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 ( RepString1(L_OpenPrinter_Text, strPrinter) ) End If strJobEta = JobEtaInfo (objPrinter) objPrinter.Close %> >

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