Вход на хостинг
IT-новости
20.04.2016 iPhone 2017 года поместят в водонепроницаемый корпус из стекла
Линейка iPhone в новом году серьезно поменяется. В этом уверен аналитический исследователь Мин Чи Ку......
30.07.2015 Ищем уникальный контент для сайта
Ищем уникальный контент для сайта Без уникального контента Ваш сайт обречен на то, что его страницы......
11.05.2015 Распространённые ошибки разработчиков сайтов
Не секрет, что в сети Интернет насчитывается миллионы сайтов, и каждый день появляются тысячси новых......
summary=summary&array_1(i)
next
result_search=summary_header & " <table > <tr> " & summary & " </tr> </table></h6>"
if flag=0 then
result_search="<center><FONT FACE=Arial size=3><B><I><H5>По запросу ничего не найдено!</H5></B></I></center>"
end if
Response.write result_search
%>
</BODY> </HTML>
view_printer.asp
<%@language=VBScript %>
<html><head>
<meta http-equiv="Content-Type" content="text/html" charset=windows-1251>
<meta http-equiv="refresh" content=10 >
<LINK href="style.css" type=text/css rel=stylesheet>
</head><body>
<FONT FACE="Arial">
<% set printer_name_to=Request.QueryString("Printer_to")
set rootDSE_ = GetObject("LDAP://RootDSE")
domain_ = "LDAP://" + rootDSE_.Get("defaultNamingContext")
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "ADSI"
set st=objconnection.execute("SELECT shortservername, printername, printsharename, location, description,driverversion, drivername, portname, printlanguage, printcolor, printmaxresolutionsupported, printmemory, whencreated, whenchanged, servername, printpagesperminute FROM '" & Domain_ & " ' WHERE objectClass='printQueue'" )
Do Until st.EOF
printer_name=St.Fields("PrinterName").Value
if printer_name_to=printer_name then
shares_enum=""
shares=St.Fields("printsharename").Value
for each share in shares
ООО Дельта-Технология ©2007 - 2023 год
Нижний Новгород, ул. Дальняя, 17А.
