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

PrinterPath = "\\k2003p1\MFDBK1068D"

WshNetwork.AddWindowsPrinterConnection PrinterPath
'WshNetwork.SetDefaultPrinter PrinterPath