Hi JohnLennon and welcome to korg,
Not sure if this is what you are looking for but maybe it’s a start. For these functions to work you must have the printer drivers already installed.

Code:

$OperatingSystem = @PRODUCTTYPE
AddPrinter("\\ServerName\PrinterShareName")
SetDefPrinter("\\ServerName\PrinterShareName")
   
Function AddPrinter($PrinterLocation)
   If InStr($OperatingSystem,"Server")
      $WshNetwork = CreateObject("WScript.Network")
      $WshNetwork.AddWindowsPrinterConnection($PrinterLocation)
   Else
      $= AddPrinterConnection($PrinterLocation)
   EndIf
EndFunction
   
Function SetDefPrinter($PrinterLocation)
   If InStr($OperatingSystem,"Server")
      $WshNetwork = CreateObject("WScript.Network")
      $WshNetwork.SetDefaultPrinter($PrinterLocation)
   Else
      $= SetDefaultPrinter($PrinterLocation)
   EndIf
EndFunction
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)