Jump to content
EduGeek EdSec 2026 is on Tuesday in Derby! Join us for a day of EdTech security focused talks, networking, and an evening social ×

Recommended Posts

Posted

I recently added a new HP Officejet pro K550 networked printer to our system. Set up went well. I now want to define it as a choice for all users. However, initially until I work out how to do this, I'm trying to add printer when individuals are logged on relevant workstations. I see the printer and it allows initial selection but then a message pops up telling me:

 

A policy is in effect on your computer which prevents you from connecting to this print queue. Please contact your system administrator.

 

Suggestions welcome.

Posted

You need to make sure that the PCs have the driver installed because regular users cannot install printer drivers.

 

This can be done very easily in a startup script like the following:

' Startup script to add network printer drivers at startup
' Author: Ric Charlton, 11/04/07

' Declare variables and enumerate existing printer connections
On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oPrinters = WshNetwork.EnumPrinterConnections

' Delete existing connections to network printers
For i = 0 to oPrinters.Count - 1 Step 2
           On Error Resume Next
    if Left(oPrinters.Item(i), 3) <> "lpt" And Left(oPrinters.Item(i), 3) <> "usb" then
            	WshNetwork.RemovePrinterConnection oPrinters.Item(i+1), true, true
           else WScript.Echo "No network printers found"
           end if
Next

' Add printer connections
' Variable to select print server
Dim printServer
printServer = "MyBigPrintServer"


WshNetwork.AddWindowsPrinterConnection "\\" & printServer & "\MyFirstPrintQueue"
' Copy the above line for each print queue

' Delete connections to network printers
oPrinters = WshNetwork.EnumPrinterConnections
For i = 0 to oPrinters.Count - 1 Step 2
           On Error Resume Next
    if Left(oPrinters.Item(i), 3) <> "lpt" And Left(oPrinters.Item(i), 3) <> "usb" then
            	WshNetwork.RemovePrinterConnection oPrinters.Item(i+1), true, true
           else WScript.Echo "No network printers found"
           end if
Next

Posted

Also make sure with these that the paper type is setup correctly to A4 in the printer properties on the server.

 

Also make sure that students set their paper size to A4 when trying to print to them.

 

I have issues with these and the 850's that they just baulk at some print jobs because of this and hangs the queue.

 

Ben

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now



×
×
  • Create New...