Script remover impressoras de rede

Este script serve para remover todas as impressoras de rede mapeadas, lembrando que se o mapeamento ainda estiver ativo ao fazer logon serão aplicadas para o usuário novamente.

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

Salvar o arquivo em .vbs

Deixe uma resposta