Compartilhar via

Remover e Adicionar Impressoras com VBScript (pt-BR)

  • Artigo

Aqui um exemplo, onde podemos remover as impressoras mapeadas de um usuário e mapear novas impressoras.  Para executar o script, copie e cole as linhas abaixo em um arquivo texto e o salve como [qualquer nome].vbs  Esse arquivo pode por exemplo ser adicionado como script de inicialização de usuários do AD, fazendo a modificação das impressoras no logon do usuário.

On Error Resume Next

'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. Se quiser mais de 7 impressoras, basta criar novas linhas na sequencia Remover8, Remover9, etc

REMOVER1 = "\SRV001\PRN001"
'REMOVER2 = "\SRV001\PRN002"
'REMOVER3 = "\SRV001\PRN003"
'REMOVER4 = "\SRV001\PRN004"
'REMOVER5 = "\SRV001\PRN005"
'REMOVER6 = "\SRV001\PRN006"
'REMOVER7 = "\SRV001\PRN007"

Set rmvImpressoras = CreateObject("WScript.Network")
rmvImpressoras.RemovePrinterConnection REMOVER1
Set rmvImpressoras = CreateObject("WScript.Network")
rmvImpressoras.RemovePrinterConnection REMOVER2
Set rmvImpressoras = CreateObject("WScript.Network")
rmvImpressoras.RemovePrinterConnection REMOVER3
Set rmvImpressoras = CreateObject("WScript.Network")
rmvImpressoras.RemovePrinterConnection REMOVER4
Set rmvImpressoras = CreateObject("WScript.Network")
rmvImpressoras.RemovePrinterConnection REMOVER5
Set rmvImpressoras = CreateObject("WScript.Network")
rmvImpressoras.RemovePrinterConnection REMOVER6
Set rmvImpressoras = CreateObject("WScript.Network")
rmvImpressoras.RemovePrinterConnection REMOVER7

'Mapeamento novas Impressoras

'Substitua SRV001 pelo nome do servidor qual a impressora a ser mapeada está instalada
'Substitua PRN00X pelo nome da impressora desejada
'Para mais de uma impressora, descomente as linhas abaixo e repita o procedimento. Se quiser mais de 6 impressoras, basta criar novas linhas na sequencia adicionar7, adicionar8, etc

ADICIONAR1 = "\SRV002\PRN001"
'ADICIONAR2 = "\SRV002\PRN002"
'ADICIONAR3 = "\SRV002\PRN003"
'ADICIONAR4 = "\SRV002\PRN004"
'ADICIONAR5 = "\SRV002\PRN005"
'ADICIONAR6 = "\SRV002\PRN006"

Set Impressoras = CreateObject("WScript.Network")

Impressoras.AddWindowsPrinterConnection ADICIONAR1
Impressoras.AddWindowsPrinterConnection ADICIONAR2
Impressoras.AddWindowsPrinterConnection ADICIONAR3
Impressoras.AddWindowsPrinterConnection ADICIONAR4
Impressoras.AddWindowsPrinterConnection ADICIONAR5
Impressoras.AddWindowsPrinterConnection ADICIONAR6
*

Copie e cole o texto acima em um arquivo texto vazio, salvando este como [Nome].vbs*

Este artigo foi originalmente escrito por:
João Ricardo Wilde Neto
MCTS, MCITP, MCDST, MCSA, MCT