Set WshNetwork = WScript.CreateObject("WScript.Network")

PrinterPath="\\lmfdpd\MFDBL1150BD"

WshNetwork.AddWindowsPrinterConnection PrinterPath
'WshNetwork.SetDefaultPrinter PrinterPath