You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
68 lines
1.8 KiB
68 lines
1.8 KiB
<%@ CODEPAGE=65001 %>
|
|
<%
|
|
'------------------------------------------------------------
|
|
'
|
|
' Microsoft Internet Printing Project
|
|
'
|
|
' Copyright (c) Microsoft Corporation. All rights reserved.
|
|
'
|
|
'
|
|
'------------------------------------------------------------
|
|
option explicit
|
|
%>
|
|
<!-- #include file = "ipp_util.inc" -->
|
|
<%
|
|
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
|
|
|
|
%>
|
|
|
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
|
|
<html lang=<%=L_Language%>>
|
|
<head>
|
|
<Meta Http-equiv="Content-Type" Content="text/html; CHARSET=UTF-8">
|
|
<meta http-equiv="refresh" content="60">
|
|
</head>
|
|
|
|
<body bgcolor="#FFFFFF" text="#000000" link="#000000" vlink="#808080" alink="#000000"
|
|
topmargin="0" leftmargin="0">
|
|
|
|
|
|
|
|
<table width="100%" border=0 cellspacing="0" cellpadding="2">
|
|
<tr>
|
|
<td nowrap><% =Write (strTitle) %>
|
|
<br><hr width=100% size=1 noshade color=red>
|
|
<% =Write(strJobEta) %>
|
|
</td>
|
|
</tr>
|
|
</table>
|
|
|
|
</body>
|
|
</html>
|