on error resume next

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

Set oPrinters = WshNetwork.EnumPrinterConnections
  For i = 0 to oPrinters.Count - 1 Step 2
    if oPrinters.Item(i) <> "LPT1:" then
      PrinterPath = oPrinters.Item(i+1)
      WshNetwork.RemovePrinterConnection PrinterPath, true, true
    end if
   Next


Set WshNetwork = WScript.CreateObject("WScript.Network")
PrinterPath = "\\apps1\hs-BusEdLas"
WshNetwork.AddWindowsPrinterConnection PrinterPath
WshNetwork.SetDefaultPrinter PrinterPath