Unbelegte LAN Manager-Druckeranschlüsse entfernen per Skrip?

[lefg 276]

Werte Gemeinde,

 

an vielen Rechnern sollen unbelegte LAN Manager-Druckeranschlüsse entfernt werden. Per GPO/GPP habe ich keine Möglichkeit entdecken können, es bleibt wohl nur ein Skript als Lösung.

 

Für TCP/IP-Ports gibt es ein Skript:

 

Set objDictionary = CreateObject("Scripting.Dictionary")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")
For Each objPrinter in colPrinters
objDictionary.Add objPrinter.PortName, objPrinter.PortName
Next
Set colPorts = objWMIService.ExecQuery _
("Select * from Win32_TCPIPPrinterPort")
For Each objPort in colPorts
If objDictionary.Exists(objPort.Name) Then
Else
ObjPort.Delete_
End If
Next

 

Ich suche also ein Skript oder eine Modifizierung, die LAN Manger-Druckeranschlüssse entfernt.

 

Hat bitte jemand einen Tipp, einen Link, eine Alternative für mich?

 

Habt Dank für Aufmerksamkeit und Rat

 

Edgar

bearbeitet 8. August 2013 von lefg

[lefg 276]

Hallo werte Gemeinde,

 

ich schieb den Thread mal nach oben.