VBScript - Mapeando Impressora e definindo como padrão

Mapeando Impressora com VBScript e definindo como padrão

'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"