led by policy, please contact your administrator" Const L_UnknownErr_Message = "An unknown error happened, please contact your administrator" %> > <% =Write(L_TitlePrintError_Text) %> <%=Write(CLIENT_FONT)%>

<%Const L_PrtFail_Text = "

Printer Installation Failed

"%> <%=Write(L_PrtFail_Text)%>

<% Dim iCode Dim strError iCode = Request("code") If iCode <> "" Or iCode <>"0" Then If iCode = 1260 Then ' 1260 is for the ERROR_ACCESS_DISABLED_BY_POLICY constant. strError = L_Error_WebPnPDl_Disabled_Text Else Dim objPrinter Set objPrinter = Server.CreateObject (PROGID_HELPER) On Error Resume Next Err.Clear strError = objPrinter.ErrorDscp (iCode) If Err.Number <> 0 Then Const L_ErrMsg_Text = "Error Code = %1" strError = RepString1(L_ErrMsg_Text,Hex (iCode)) End If End If Else strError = L_UnknownErr_Message End If Response.Write (Write (strError)) %> <%=END_FONT%>