Script simples para adicionar uma impressora na máquina local.
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\Servidordeimpressao\HP1120"
WshNetwork.SetDefaultPrinter "\\Servidordeimpressao\HP1120"