VBScript - Mapeando Impressora

Mapeando Impressora com VBScript

'Mapeando Impressora 



Set WshNetwork = WScript.CreateObject ("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\computador\compartilhamento", "Nome_Impressora"
'Definindo como impressora padrão
WshNetwork.SetDefaultPrinter "\\computador\compartilhamento", "Nome_Impressora"