Vista - Need Help With Script To List and Delete Printers

We are migrating from one print server to another and the printers from the
old print server still exist on the client PCs and I want to delete them.
What I am trying to do is write a script to do the following on the client
PCs:
1. List the user's printers
2. Pipe that list into an array
3. Search the array for printers starting with \\OLDPRINTSERVER
4. Delete those printers
I know how to list printers and delete printers, can someone help with the
rest? Thank you in advance!
Christopher

Post if you need more, but you actually have something that is _very_ simple
to do using VBScript's Filter function. From the docs, the prototype for it
is this:

Filter(InputStrings, Value[, Include[, Compare]])
where InputStrings is an array; Value is the value you're searching for that
should be contained in those strings; Include is a boolean, true (default)
for returning only items containing the string, and false for only returning
items NOT containing it; and Compare is vbBinaryCompare (or 0, for caseful
comparison) or vbTextCompare (or 1, for case-insensitive comparison).

Here's a demo.

printers = Array("\\OLDPRINTSERVER\ptr1", "\\newprintserver\ptr1", _
"\\oldprintserver\ptr2", "\\oldprintserver\ptr3", _
"\\newprintserver\ptr1")

Oldprinters = Filter(printers, "\\OLDPRINTSERVER\", true, vbTextCompare)
for each oldprinter in oldprinters
WScript.Echo oldprinter
next

Filter has limited use in many circumstances since it does simple
comparison, but it works well for this since the \\<name>\ form anchors a
unique string.

"Christopher Beard" <ChristopherBeard@xxxxxx> wrote in
message news:0CB742E6-1E06-4D4C-9823-2B7373A8B445@xxxxxx

And out of curiosity, what technique are you using to remove the printers?

"Christopher Beard" <ChristopherBeard@xxxxxx> wrote in
message news:0CB742E6-1E06-4D4C-9823-2B7373A8B445@xxxxxx

I'm going to try to use a basic VBScript printer delete like below. Thanks
for your help! I'll try this and let you know how it goes.

objNetwork.RemovePrinterConnection "printername"


"Alex K. Angelopoulos" wrote:

I wanted to create a script to do the same action as the OP.

I have a script that will query the local computer and delete all network printers on the machine (see below). I don't want to delete all network printers, but instead want to delete all of the printers from \\DC1. How could I rework this script to include the filter above?

-----=======-----
strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * From Win32_Printer Where Network = True")

For Each objPrinter in colInstalledPrinters
objPrinter.Delete_
Next

Aisak,
I'm having a bit of trouble making this work. If I figure it out, I'll let
you know.
Christopher

"Aisak" wrote: