Wat is het VBS script waarmee ik al mijn netwerk printers kan verwijderen behalve 1?

Tot nu toe heb ik dit. Het werkt wel, maar verwijdert elke netwerk printer en ik wil een uitzondering maken voor 1 printer. Waar moet ik in dit script iets aanpassen om dat voor elkaar te krijgen? Achter 'Loop to delete each network printer???

' **** START: Delete all network printers ****
strComputer = "."
' Make reference anf query for network printers
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer Where Network = TRUE")
' Loop to delete each network printer
For Each objPrinter in colInstalledPrinters

strPrinterName = objPrinter.name
Select Case strAfdeling
case "G"
objPrinter.Delete_
case "T"
objPrinter.Delete_
case "VG"
objPrinter.Delete_
case "VT"
objPrinter.Delete_
end select

Next
' Clean up
Set colInstalledPrinters = Nothing
Set objWMIService = Nothing
' **** END: Delete all network printers ****

Weet jij het antwoord?

/2500

Het beste antwoord

’ **** START: Delete all network printers **** strComputer = "." ’ Make reference anf query for network printers Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colInstalledPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer Where Network = TRUE") ’ Loop to delete each network printer For Each objPrinter in colInstalledPrinters strPrinterName = objPrinter.name If strPrinterName <> "Deze wil ik houden" Then Select Case strAfdeling case "G" objPrinter.Delete_ case "T" objPrinter.Delete_ case "VG" objPrinter.Delete_ case "VT" objPrinter.Delete_ end select End If Next ’ Clean up Set colInstalledPrinters = Nothing Set objWMIService = Nothing ’ **** END: Delete all network printers ****

Stel zelf een vraag

Ben je op zoek naar het antwoord die ene vraag die je misschien al tijden achtervolgt?

/100