dim oMaster, oPrinter set oMaster = CreateObject("PrintMaster.PrintMaster.1") set oPrinter = CreateObject("Printer.Printer.1") oPrinter.ServerName = "\\odi-mgt-ce2.lab2003domain.com" oPrinter.PrinterName = "t10000" oPrinter.DriverName = "Apple LaserWriter 8500" oPrinter.PortName = "socket://10.77.155.220:9100" oPrinter.shareName = "t10000" oPrinter.Location = "odi-lab" oMaster.PrinterAdd oPrinter