Remover impressoras instaladas via rede

05/03/2013 13:16

'REMOVENDO IMPRESSORAS MAPEADAS

'Substitua SRV001 pelo nome do servidor de impressão da impressora a ser removida
'Substitua PRN00X pelo nome da impressora
'Para mais de uma impressora, descomente as linhas abaixo e repita o procedimento.

REMOVER1 = "\\SRV001\PRN001"
'REMOVER2 = "\\SRV001\PRN002"

Set rmvImpressoras = CreateObject("WScript.Network")
rmvImpressoras.RemovePrinterConnection REMOVER1
Set rmvImpressoras = CreateObject("WScript.Network")
rmvImpressoras.RemovePrinterConnection REMOVER2

 

'FIM DO REMOVENDO IMPRESSORAS MAPEADAS

Palavras-chave:

| | |

Voltar