Ok, thanks for the link. So then, the following code should be correct providing I've got
Dim $printer1,$printer2,$printer3,$printerdefault
at the begining of the script?
 Code:
      
Case InStr (@wksta,"047-C111")=1 
         $nothing = AddPrinterConnection ($s1 + "\Epson")
$nothing=$printer1
?"Your first printer is " +$printer1
         $nothing = AddPrinterConnection ($s1 + "\c111") 
$nothing=$printer2
?"Your second printer is " +$printer2
         $nothing = AddPrinterConnection ($s1 + "\Xerox") 
$nothing=$printer3
?"Your third printer is " +$printer3
         $nothing = SetDefaultPrinter ($s1 + "\c111")  
$nothing=$printerdefault
? $printerdefault +" has been set as your default printer."
_________________________
---
Bishop Grandin Technology Department
'Either we're on time, or we're late'