script para impresoras

Colega, espero este script te sirva yo lo use cuando cambie de print server
la ventaja es que lo puedes personlizar el script por OU o si usas las
mismas para todos los users pues dejas un solo script..
lo que tu pides en el script es que al inicio se haga una excepcion en el
momento de eliminar impresoras y solo te agregue las que tu pongas, en este
script no eliminas todas solo las que selecciones (logico debes conocer el
nombre share de la printer) y al final agregas las impresoras nuevas o las
impresoras en el nuevo print server...

'Remueves las impresoras que tienes bien identificadas por nombre
Set WshNetwork = CreateObject("WScript.Network")
On Error Resume next
WshNetwork.RemovePrinterConnection "\\server01\printer01"
WshNetwork.RemovePrinterConnection "\\server02\printer02"
On Error Resume next
WshNetwork.RemovePrinterConnection "\\server01\printer03"
WshNetwork.RemovePrinterConnection "\\server02\printer04"
On Error Resume next

'agregas las impresoras nuevas o que cambiaron de server
WshNetwork.AddwindowsPrinterConnection "\\printserver01\printer01"
WshNetwork.AddwindowsPrinterConnection "\\printserver01\printer02"
WshNetwork.AddwindowsPrinterConnection "\\printserver01\printer03"
WshNetwork.AddwindowsPrinterConnection "\\printserver01\printer04"

'declaras "x" impresora como default
WshNetwork.SetDefaultPrinter "\\printserver01\printer01"


"GJPC" wrote in message
news:
Mostrar la cita

hola a

Tengo un pequeño lio, estoy instalando un servdor de impresión y deseo
conectar las mpresoras a cada usuario por script, para esto tengo que
borrar
todas las impresoras de los usuarios, esto tambien lo hare por script.

el detalle esta en que hay 2 impresoras que no debo borrar a los usuarios,
y
el script que tengo borra todas las impresoras, alguien me podria ayudar
para
saber de que manera puedo borrar todas las impresoras exepto esas dos.
Este
es el script que estoy usando.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "oot\cimv2")

Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")

For Each objPrinter in colInstalledPrinters
objPrinter.Delete_

Next

gracias por su ayuda