Sealeopard, I believe the UDF I created (see below) does basically the same thing as what you're suggesting, right? (Except for adding the error statement. When the UDF is put into action in my script, I simply added the line $Label.Text = "The printer that has been setup for you is " +$printer +@CRLF

 Code:
 
Function PrinterSetup() 
   ;Cases to determine available printers And which printer is default 
    
   Select 
      Case InStr (@wksta,"047-KandE")=1 
         $nothing = AddPrinterConnection ($s1 + "\KandE") 
         $nothing = SetDefaultPrinter ($s1 + "\KandE") 
	 $printer = "S047-S0371-01\KandE"
      Case InStr (@wksta,"047lib-")=1 
         $nothing = AddPrinterConnection ($s1 + "\library") 
         $nothing = SetDefaultPrinter ($s1 + "\library")
 	 $printer = "S047-S0371-01\Library"
      Case InStr (@wksta,"047-lib")=1 
         $nothing = AddPrinterConnection ($s1 + "\library") 
         $nothing = SetDefaultPrinter ($s1 + "\library")
	 $printer = "S047-S0371-01\Library"
      ;When extra computers set up in library For diplomas 
      Case InStr (@wksta,"047-lib2")=1 
         $nothing = AddPrinterConnection ($s1 + "\library2") 
         $nothing = SetDefaultPrinter ($s1 + "\library2")
	 $printer = "S047-S0371-01\Library2" 
      Case InStr (@wksta,"047C303")=1 
         $nothing = AddPrinterConnection ($s1 + "\c303") 
         $nothing = SetDefaultPrinter ($s1 + "\c303") 
	$printer = "S047-S0371-01\C309"
      Case InStr (@wksta,"047-C303")=1 
         $nothing = AddPrinterConnection ($s1 + "\c303") 
         $nothing = SetDefaultPrinter ($s1 + "\c303") 
	 $printer = "S047-S0371-01\C303"
      Case InStr (@wksta,"047-C309")=1 
         $nothing = AddPrinterConnection ($s1 + "\C309") 
         $nothing = SetDefaultPrinter ($s1 + "\c309") 
	 $printer = "S047-S0371-01\C309"
      Case InStr (@wksta,"047-C310")=1 
         $nothing = AddPrinterConnection ($s1 + "\C310") 
         $nothing = SetDefaultPrinter ($s1 + "\c310") 
	 $printer = "S047-S0371-01\C310"
      Case InStr (@wksta,"047-careerstu")=1 
         $nothing = AddPrinterConnection ($s1 + "\CAREER") 
         $nothing = SetDefaultPrinter ($s1 + "\CAREER") 
	 $printer = "S047-S0371-01\Career"
      Case InStr (@wksta,"047-C312")=1 
         $nothing = AddPrinterConnection ($s1 + "\C312") 
         $nothing = SetDefaultPrinter ($s1 + "\c312") 
	 $printer = "S047-S0371-01\C312"
      Case InStr (@wksta,"047-C111")=1 
         $nothing = AddPrinterConnection ($s1 + "\Epson") 
         $nothing = AddPrinterConnection ($s1 + "\c111") 
         $nothing = AddPrinterConnection ($s1 + "\Xerox") 
         $nothing = SetDefaultPrinter ($s1 + "\c111") 
	 $printer = "S047-S0371-01\C111"
      Case InStr (@wksta,"047-YEAR")=1 
         $nothing = AddPrinterConnection ("\\047-YEARBOOK-2\Yearbook") 
         $nothing = SetDefaultPrinter ("\\047-yearbook-2\yearbook") 
	 $printer = "S047-S0371-01\yearbook"
      Case InStr (@wksta,"047-DRAF")=1 
         $nothing = AddPrinterConnection ($s1 + "\HP-GL/2 Plotter") 
         $nothing = SetDefaultPrinter ($s1 + "\plotter") 
	 $printer = "S047-S0371-01\plotter"
      Case InStr ("@wksta","047-REACH")=1 
         $nothing = AddPrinterConnection ($s1 + "\GOLDIE") 
         $nothing = SetDefaultPrinter ($s1 + "\goldie") 
	 $printer = "S047-S0371-01\goldie"
      Case InStr (@wksta,"047-C206")=1 
         $nothing = AddPrinterConnection ($s1 + "\C206") 
         $nothing = SetDefaultPrinter ($s1 + "\c206") 
	 $printer = "S047-S0371-01\C206"
   EndSelect 
EndFunction
_________________________
---
Bishop Grandin Technology Department
'Either we're on time, or we're late'