derekdy
asked on
How do I delete multiple printers at once in Windows7
We currently deploy cloned PCs from an image which has all of the 100+ printers for our 20+ locations installed on it. Once we know which location the PC is going to be in we delete all of the printers except the printers for that location to lessen user confusion. Under XP it was simple, select all of the printers except the ones you wanted to keep and hit delete. Under Win7 as soon as you select more than one printer the delete option is no longer available. How do you delete some, but not all, of a group of installed printers in Win7 without having to delete them one at a time?
' Set printers
' ************************** ****
On Error Resume Next
Dim objNetwork
Set objNetwork = CreateObject("WScript.Netw ork")
the commands below remove old printers - very helpful if you are updating a driver on a printer and want to make sure the workstations get the latest driver you installed. Remove the ' in front to have the command actually processed.
'objNetwork.RemoveWindowsP rinterConn ection "\\server\printer_to_remov e"
'objNetwork.RemoveWindowsP rinterConn ection "\\server\2nd_printer_to_r emove"
the commands below begin connecting each printer you have pathed out to
objNetwork.AddWindowsPrint erConnecti on "\\server\printer1"
objNetwork.AddWindowsPrint erConnecti on "\\server\printer2"
objNetwork.AddWindowsPrint erConnecti on "\\server\printer3"
objNetwork.AddWindowsPrint erConnecti on "\\server\printer4"
objNetwork.AddWindowsPrint erConnecti on "\\server\printer5"
the command below establishes which printer will be the default printer
objNetwork.SetDefaultPrint er "\\server\printer1"
' **************************
On Error Resume Next
Dim objNetwork
Set objNetwork = CreateObject("WScript.Netw
the commands below remove old printers - very helpful if you are updating a driver on a printer and want to make sure the workstations get the latest driver you installed. Remove the ' in front to have the command actually processed.
'objNetwork.RemoveWindowsP
'objNetwork.RemoveWindowsP
the commands below begin connecting each printer you have pathed out to
objNetwork.AddWindowsPrint
objNetwork.AddWindowsPrint
objNetwork.AddWindowsPrint
objNetwork.AddWindowsPrint
objNetwork.AddWindowsPrint
the command below establishes which printer will be the default printer
objNetwork.SetDefaultPrint
ASKER
@LeeTutor
Thanks for the response but I've actually got a reply to the MS Tech comment on the link your recommend. The tech misread or ignored the original poster's question and gave instructions for deleting multiple drivers rather than multiple printers at once. He then says "For devices you may open devices and printers and remove one device at a time." which puts me back to square one.
Thanks for the response but I've actually got a reply to the MS Tech comment on the link your recommend. The tech misread or ignored the original poster's question and gave instructions for deleting multiple drivers rather than multiple printers at once. He then says "For devices you may open devices and printers and remove one device at a time." which puts me back to square one.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
http://social.answers.microsoft.com/Forums/en-US/w7hardware/thread/22b74556-ec8e-43c7-b89e-76fddd4dde89
Remove Multiple Devices