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 ****
