Windows 7 Thread, Fed up of 'Deploying printer settings' in Technical; after fighting these thoughts I have come to the conclusion I am just making my day harder than it should ...
14th May 2014, 03:20 PM #16
after fighting these thoughts I have come to the conclusion I am just making my day harder than it should be by insisting on group policy. Could anyone direct me to a good resource for scripting printers please?
14th May 2014, 03:32 PM #17
- Rep Power
this is a vb script to add printers just copy to notepad and save as .vbs you'll need to edit the printserver\printer lines
on error resume next
Dim PrinterDriver, PrinterPath,PrinterDriver1, PrinterPath1,PrinterDriver2, PrinterPath2
Set objNetwork = CreateObject("WScript.Network")
PrinterPath = "\\PRINT SERVER NAME\PRINTER"
PrinterDriver = "PRINTER MAKE AND MODEL"
PrinterPath1 = "\\PRINT SERVER NAME\PRINTER"
PrinterDriver1 = "PRINTER MAKE AND MODEL"
PrinterPath2 = "\\PRINT SERVER NAME\PRINTER"
PrinterDriver2 = "PRINTER MAKE AND MODEL"
objNetwork.AddWindowsPrinterConnection PrinterPath, PrinterDriver
objNetwork.AddWindowsPrinterConnection PrinterPath1, PrinterDriver1
objNetwork.AddWindowsPrinterConnection PrinterPath2, PrinterDriver2
14th May 2014, 04:12 PM #18
15th May 2014, 11:16 AM #19
- Rep Power
same here , after using GPP and failing, we switched to script and all the problems disappeared.
15th May 2014, 11:34 AM #20
This is my ugly but works printer distribution script
Rem Fix50676 creates LOW directory in Appdata\temp
msiexec /i \\nebula\apps\nwapps\flash\Fixit50676.msi /q
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * From Win32_Printer Where Network = True")
For Each objPrinter in colInstalledPrinters
On Error resume Next
set objNetwork = WScript.CreateObject("WScript.Network")
set objShell = WScript.CreateObject("WScript.Shell")
'Add Network printers
objNetwork.AddWindowsPrinterConnection "\\quartz\HP LaserJet P2055dn IT01 P1"
objNetwork.AddWindowsPrinterConnection "\\quartz\HP Colour LaserJet CP2025 IT01"
objNetwork.AddWindowsPrinterConnection "\\quartz\Konica Minolta 421 STAFFROOM"
'Set Default Printer
objNetwork.SetDefaultPrinter "\\quartz\HP LaserJet P2055dn IT01 P1"
The link to the fixit file I use is as follows:
Unable to print or view the print preview of a webpage in Internet Explorer
Hope that helps someone
5th June 2014, 11:44 AM #21
- Rep Power
We deploy our printers via AD Groups and a KIX script on every login.
Computer needs a connection to another printer, just add it to the Printer Group and it's there for the next login.
Also handy if you have a printer that is Out Of Order, to just add the computers that were normally connected to it to another group.
Computer moves to another office, add it to another Printer group.
The only time I need to look at the script is when we add more printers, but as it's ony 5 lines of code it only take a few seconds to update once the printer has been installed on the server.
As you can see from the code, we also utilise a virtual print queue that can release the prints to any device on the network so if a computer hasn't yet been added to a printer group, the device can still print.
IF computerINGROUP("Domain Computers")=1
? "Added printer connection to Followme virtual queue"
IF computerINGROUP("Exams Printer Group")=1
? "Added printer connection to Exams MFD"
By jamwatn in forum Windows 7
Last Post: 21st March 2014, 06:11 PM
By danrhodes in forum Windows
Last Post: 4th May 2010, 02:46 PM
Users Browsing this Thread
There are currently 1 users browsing this thread. (0 members and 1 guests)