{"id":63663,"date":"2007-11-02T03:23:00","date_gmt":"2007-11-02T03:23:00","guid":{"rendered":"https:\/\/blogs.technet.microsoft.com\/heyscriptingguy\/2007\/11\/02\/hey-scripting-guy-how-can-i-remove-all-the-network-printers-on-a-computer\/"},"modified":"2007-11-02T03:23:00","modified_gmt":"2007-11-02T03:23:00","slug":"hey-scripting-guy-how-can-i-remove-all-the-network-printers-on-a-computer","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/scripting\/hey-scripting-guy-how-can-i-remove-all-the-network-printers-on-a-computer\/","title":{"rendered":"Hey, Scripting Guy! How Can I Remove All the Network Printers on a Computer?"},"content":{"rendered":"

\"Hey, <\/H2>\n

Hey, Scripting Guy! Is it possible to delete or remove all network printers from a workstation with a VBScript script, similar to the way you removed all the network drives on a computer?

— WDC<\/P>\"Spacer\"\"Hey,\"Script<\/A> \n

Hey, WDC. If you\u2019ve been following our daily TechEd preview report<\/B><\/A>, then you know that the Scripting Guys have been busy preparing for their upcoming trip to Barcelona and TechEd IT Forum<\/B><\/A>. The preview report gives you an inside look at what the Scripting Guys are doing to get ready for the trip; before we answer today\u2019s question, however, we thought we\u2019d give you an exclusive super-duper <\/I>inside look at what we\u2019re doing to get ready for the trip.<\/P>\n

For example, here\u2019s the transcript of the Scripting Guys\u2019 planning session that took place earlier today:<\/P>\n

Jean Ross<\/B>: We have way<\/I> too much to do.<\/P>\n

The Scripting Guy Who Writes This Column<\/B>: That\u2019s true, we do<\/I> have way too much to do.<\/P>\n

Jean Ross<\/B>: I don\u2019t see how we can possibly get everything done in time.<\/P>\n

The Scripting Guy Who Writes This Column<\/B>: Me either, I \u2013 wait, I<\/I> know: suppose that in addition to everything else we\u2019re doing, we added three more things to the pile? That would solve all our problems, right?<\/P>\n

Jean Ross<\/B>: —<\/P>\n

Well, uh, never mind what Scripting Guy Jean Ross said. Poor thing; she\u2019s been under a lot of stress lately. <\/P>\n

Although, admittedly, most of that stress does<\/I> come from having to work with Scripting Guy who writes this column.<\/P>\n

In other words, things are going just great. Assuming that Jean doesn\u2019t explode between now and November 8th<\/SUP>, the Scripting Guys will hop onto a plane that morning and head for Spain. <\/P>\n\n<\/THEAD>\n\n\n
\n

Note<\/B>. You know, you\u2019d be surprised how many people have said that very same thing: poor Spain. Wonder what you all mean by that?<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n

<\/DIV>\n

At any rate, things are going so<\/I> well that we have plenty of time to sit down and chat about a script that can remove all the network printers from a workstation. In the interests of fair disclosure we should note that, back in December of 2005 (when Scripting Guy Greg Stemp was just a sophomore in high school), we showed everyone a similar script, one that could remove all the local printers<\/B><\/A> from a computer. Depending on how you want to look at, that means that we\u2019re cheating a little here; after all, we only have to make one minor change to that script and it will remove all the network printers instead. <\/P>\n

You know, now that we think about it, that doesn\u2019t sound like cheating a little, that sounds like cheating a lot<\/I>.<\/P>\n

On the other hand, we also noted in that December 2005 column that the script in question would not work on Windows 2000; instead, it would only run on versions of Windows that came after<\/I> Windows 2000. We also said, \u201cWe\u2019ll see what we can do about addressing this issue on Windows 2000 computers. We won\u2019t make any promises, but we\u2019ll look into it.\u201d And now, less than 2 years later, we\u2019ve actually gone ahead and looked into it. Based on that exhaustive research, we\u2019ll show you how to delete network printers on post-Windows 2000 computers first, and then show you how to perform this very same task on a Windows 2000 machine.<\/P>\n

And then at that point we\u2019ll have done everything we ever promised to do.<\/P>\n

More or less \u2026.<\/P>\n

Here\u2019s the post-Windows 2000 script:<\/P>

strComputer = “.”<\/p>\n
Set objWMIService = GetObject(“winmgmts:\\\\” & strComputer & “\\root\\cimv2”)<\/p>\n
Set colInstalledPrinters = objWMIService.ExecQuery _\n    (“Select * From Win32_Printer Where Network = True”)<\/p>\n
For Each objPrinter in colInstalledPrinters\n    objPrinter.Delete_\nNext\n<\/PRE>\n
As you can see, there\u2019s really not much to this script. We start out by connecting to the WMI service on the local computer. As is invariably the case, however, we could also use this script to remove printers from a remote machine. How? Simply by assigning the name of that remote computer to the variable strComputer, like so:<\/P>
strComputer = “atl-ws-001”\n<\/PRE>\n
After we connect to the WMI service we then issue the following query in order to return a collection of all the network printers installed on the computer:<\/P>
Set colInstalledPrinters = objWMIService.ExecQuery _\n    (“Select * From Win32_Printer Where Network = True”)\n<\/PRE>\n
The secret here \u2013 not that it\u2019s much of a secret, mind you \u2013 is that we included a Where clause that limits the returned data to printers where the Network<\/B> property is True; needless to say, that property will be True only if we\u2019re dealing with a network printer. This, by the way, is one reason the script won\u2019t work on a Windows 2000 machine: the Win32_Printer<\/B> class in Windows 2000 doesn\u2019t include the Network property. (That property was introduced in Windows XP). And no, there is zero<\/I> chance that the Windows 2000 version of the Win32_Printer class will be updated to include this property.<\/P>\n
But don\u2019t worry, Windows 2000 users: like we said, we\u2019ll show you a way to work around that issue. Just be patient. (Actually, you don\u2019t even need to be all that patient; after all, we\u2019re just about done with the post-Windows 2000 version.)<\/P>\n
Once we get back our collection of network printers we set up a For Each loop to loop through each of the items in that collection. For each item all we have to do is call the Delete_<\/B> method and that printer connection will be removed:<\/P>
objPrinter.Delete_\n<\/PRE>\n
Tah-dah!<\/P>\n
Now, what about the Windows 2000 version? Well, this is bit trickier, and for two reasons. First, and as we noted earlier, the Network property doesn\u2019t exist in Windows 2000; that makes it harder to identify which printers are network printers and which ones aren\u2019t. Second, it\u2019s not just the Network property that the Win32_Printer class doesn\u2019t support; Win32_Printer doesn\u2019t support the Delete_ method, either. That means we have to do a bit of a workaround just to get the collection of network printers in the first place, and then we have to hand that collection off to Windows Script Host (WSH) and let it<\/I> do the deleting for us.<\/P>\n\n<\/THEAD>\n\n\n
\n
Note<\/B>. This also means that the Windows 2000 version of the script can only be run on the local computer. That\u2019s because the WSH methods for adding\/removing printer connections can\u2019t be used against remote machines.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
<\/DIV>\n
For better or worse, here\u2019s the Windows 2000 script:<\/P>
Const NETWORK = 22<\/p>\n
Set objNetwork = CreateObject(“WScript.Network”)<\/p>\n
strComputer = “.”<\/p>\n
Set objWMIService = GetObject(“winmgmts:\\\\” & strComputer & “\\root\\cimv2”)\nSet colPrinters = objWMIService.ExecQuery(“Select * From Win32_Printer”)<\/p>\n
For Each objPrinter in colPrinters\n    If objPrinter.Attributes And NETWORK Then \n        strPrinter = objPrinter.Name\n        objNetwork.RemovePrinterConnection strPrinter\n    End If\nNext\n<\/PRE>\n
This time around we start out by defining a constant NETWORK and setting the value to 22; we\u2019ll use this constant to help us determine whether a given printer is a network printer or a local printer. After that we create an instance of the Wscript.Network<\/B> object, the WSH object we can use to remove printers from a computer.<\/P>\n
From there we bind to the WMI service (remember, local computer only) and then use the following line of code to return a collection of all<\/I> the printers on a computer:<\/P>
Set colPrinters = objWMIService.ExecQuery(“Select * From Win32_Printer”)\n<\/PRE>\n
Now, you\u2019re right: we don\u2019t want<\/I> to remove all the printers on a computer, do we? Instead, we want to remove only network printers. That\u2019s why, after setting up a For Each loop to walk through the collection of printers, we run this line of code:<\/P>
If objPrinter.Attributes And NETWORK Then\n<\/PRE>\n
As it turns out, the Attributes<\/B> property is a \u201cbitmask\u201d property, a property that can contain more than one value. (For more information about bitmask properties see this Scripting Guys webcast<\/B><\/A>.) Bitmasks are composed of \u201cswitches\u201d that can be either on or off; for example, the Attributes property has a \u201cswitch\u201d with a value of 22 that tells us whether a printer is a network printer. If this switch is on then we have a network printer; if this switch is off then we have a local printer. The preceding line of code simply checks to see if the Network switch is on. If it is, we assign the printer Name<\/B> to a variable named strPrinter, then use this line of code to delete that printer connection:<\/P>
objNetwork.RemovePrinterConnection strPrinter\n<\/PRE>\n
From there we loop around and repeat the process with the next printer in the connection. It\u2019s not the most elegant script in the world, and it is<\/I> restricted to the local machine (making it a candidate for inclusion in a logon script) but it works.<\/P>\n
By the way, local printers have their own switch, one with a value of 100. How does that help you search for local<\/I> printers? Well, to search for local printers you can first define a constant named LOCAL, with a value of 100:<\/P>
Const LOCAL = 100\n<\/PRE>\n
And then you can check each printer on the computer to see if the local switch is on or off:<\/P>
If objPrinter.Attributes And LOCAL Then\n<\/PRE>\n
In the meantime, it\u2019s back to work for the Scripting Guy who writes this column. As you might expect, we\u2019re looking forward to talking to as many people as we can in Barcelona; if you\u2019re attending TechEd IT Forum take a minute or two to swing by booth 22 in the Ask the Experts section. Sure, you\u2019ll have to spend a minute chatting with a Scripting Guy, but maybe you\u2019ll get lucky: maybe you\u2019ll get to talk to Jean instead of the Scripting Guy who writes this column. Either way, you\u2019ll also get a copy of Dr. Scripto\u2019s Fun Book, you\u2019ll get a bonus CD with hundreds<\/I> of scripting-related columns and articles (plus a scripting song or two), and you\u2019ll have a chance to win one of the few remaining Dr. Scripto bobblehead dolls. What more could you ask?<\/P>\n
Actually, that\u2019s a really good idea and someone should<\/I> ask her about that. But not us;<\/I> as it is, the Scripting Guy who writes this column has decided it might be best to wait a day or two before approaching with any new ideas or projects.<\/P><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! Is it possible to delete or remove all network printers from a workstation with a VBScript script, similar to the way you removed all the network drives on a computer?— WDC Hey, WDC. If you\u2019ve been following our daily TechEd preview report, then you know that the Scripting Guys have been busy […]<\/p>\n","protected":false},"author":595,"featured_media":87096,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[445,404,3,5],"class_list":["post-63663","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-client-side-printing","tag-printing","tag-scripting-guy","tag-vbscript"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! Is it possible to delete or remove all network printers from a workstation with a VBScript script, similar to the way you removed all the network drives on a computer?— WDC Hey, WDC. If you\u2019ve been following our daily TechEd preview report, then you know that the Scripting Guys have been busy […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/63663","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/users\/595"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/comments?post=63663"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/63663\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media\/87096"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media?parent=63663"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=63663"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=63663"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}