Script to delete local printer port

apologies, looked again, that was IP.... sorry, pretty late round here.

No problem, I already found almost that exact same script on TechNet.  Works great for IP, not so good with local...

Had high hopes for the code below, but it wasn't able to remove the port either.  Still searching....

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
    ("Select * From Win32_Printer") 
For Each objPrinter in colInstalledPrinters
    If objPrinter.Portname = "Test" Then
        objPrinter.Delete_
    End If
Next
 
msgbox "Finished"

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

too late for me now, will check again tomorrow... sorry!

last call....:

http://support.microsoft.com/kb/321025

I know it's 2k, but most of that old good stuff still works....

Can you give me an example?  Does PrinterAdmin  work with XP?

I'm still looking for a solution that will allow me to script the deletion of a local printer port.  Any help?  It has to be scripted because it will be pushed out to 500+ computers.  Thanks in advance.

Check this:
http://www.experts-exchange.com/Programming/Languages/Scripting/Q_22703269.html

Ensuring that on the objPrinter.Delete_ Line you have the underscore at the end ie

objPrinter.Delete_

as apposed to

objPrinter.Delete

Also change the DeviceID to your device id and it should work

("Select * from Win32_Printer where DeviceID = 'hp 2000c'")  

Replace hp 2000c as per above between the single quotes to what your device id is.

strComputer = "." 
Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colInstalledPrinters = objWMIService.ExecQuery _ 
("Select * from Win32_Printer where DeviceID = 'hp 2000c'") 
For Each objPrinter in colInstalledPrinters 
objPrinter.Delete_ 
Next 

                                              

1:
2:
3:
4:
5:
6:
7:
8:

These look like great ways to delete a printer, but I need to delete the actual port.  See the attached screen shot, I may not have been very clear in my purpose.

FYI you can remove an obsolete/invalid printer port by deleting the appropriate registry key under

HKLM\SYSTEM\ControlSet001\Control\Print\Monitors\Standard TCP/IP Port\Ports\

Good to know, but this is a local port not an IP port.  Near that same key is a listing for:

HKLM\SYSTEM\ControlSet001\Control\Print\Monitors\Local Port, but it does not contain a listing of local ports.

paq

http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_24135194.html

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer Where Network = FALSE")
 
For Each objPrinter in colInstalledPrinters
    objPrinter.Delete_
Next
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:

The symantics in the code below aren't correct, but I hope it atleast shows what I'm trying to do.  Anyway you could correct the verbage for me?

Also, in the kb article you cited above, only one of the persons questions were answered.  

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colInstalledPorts =  objWMIService.ExecQuery _
    ("Select * from Win32_LocalPrinterPort Where Name = 'Test'")
 
For Each objPort in colInstalledPorts 
    objPort.Delete
Next

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

where did you find the lost Win32_LocalPrinterPort ?

Ha, I just made it up!  (I said the syntax was wrong...)  Everything posted so far has had to do with IP Printers/Ports, and I was hoping it would help someone think of something I could use.  The WMI index is hard to search/use...  Even though it's a made up call, itt's the kind of script I need.

So is it possible to delete a local port?

Not sure I will have a look later although whilst your waiting you may be able to solve the issue using

http://www.microsoft.com/downloads/details.aspx?FamilyID=2cc30a64-ea15-4661-8da4-55bbc145c30e&displaylang=en

wmi code creator ( Am pretty sure its that ) will test it later.

If you check the win32_printer class and the other classes that wmi uses for deleting a tcp ip printer port you may find a specific one to delete a local port.

Have been playing around with it a little bit at work but have been busy - I have this friday off so I can have a better attempt on friday as I wont be at work.

For now I hope this helps and appologise for taking a while

i searched for a solution to your problem and nothing came out without deleting the printer itself.
if another expert can prove other wise i will be more than happy to hear it.

hey

maybe i wrong but my last post is an answer to the question even if it's not a solution to complete the task asked for.

yehudaha

I have no objections - although I am guessing it would be more of an API that you would require most likely to be able to just delete the port I am guessing as I had the same problem using WMI with regards to deleting the whole printer to delete the port or not at all so not sure if you would be interested in this

I appreciate everyone's help and input.  I've done lots of testing here and it looks like leaving the port isn't going to cause any conflicts with the upgrade.  I'm not familar with API's, but if you have an example readily available I would be interested in seeing it.  Thanks again for the help, I really appreciate everyone's time!

You can't use an API in scripting languages its more for an actual programming language ( I am not that great with programming ) but you may be able to include it in an ocx control or dll or something along those lines and possibly call it from vbscript ?

Thanks for everyones time and effort, I really appreciate.  

no problem - just a shame there is not an ocx that I could find to do it - If I get enough time I will look into creating an ocx in vb 6 that will do the above If I can figure it out and If I can I will post back but might be a while.

I do not have access to Visual Studio which is why I was trying to script it.  As I said earlier, leaving the port ended up not causing a conflict in our environment.  If you wanted to do it as a pet projection though that would be great and I'd be really interested in seeing it as I have no experience in making an ocx.

Thanks again,
Stephen