| Server IP : 121.121.20.254 / Your IP : 216.73.217.51 Web Server : Microsoft-IIS/10.0 System : Windows NT WEB-SERVER 10.0 build 20348 (Windows Server 2022) AMD64 User : IUSR ( 0) PHP Version : 8.3.28 Disable Function : NONE MySQL : ON | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : C:/Windows/Web/Printers/ |
Upload File : |
<%@ 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
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
%>
<!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>