Thanks - that is a great help. So would the following be valid?
Code:

;***************************************************************************



;******** Map Printers by Computer Name ************************************



;***************************************************************************





select

  case instr("~S101~S102~S103~S104~S105~S106~S107~S108~S109~S110~S111~S112~S113~S114~" +

             "S115~S116~S117~S118~S119~S120~S121~S122~S123~S124~S125~S126~S127~S128~S129~S130~", "~"+@wksta+"~")

        IF AddPrinterConnection ("\\admin1\ICT1_Las") = 1

      	MESSAGEBOX ("ICT1 Laser Printer connection failed","Printer Connection Error!",0)

   	ENDIF

  case instr("~S201~S202~S203~S204~S205~S206~S207~S208~S209~S210~S211~S212~S213~S214~" +

             "S215~S216~S217~S218~S219~S220~S221~S222~S223~S224~S225~S226~S227~S228~S229~S230~", "~"+@wksta+"~")

        IF AddPrinterConnection ("\\admin1\ICT2_Las") = 1

      	MESSAGEBOX ("ICT2 Laser Printer connection failed","Printer Connection Error!",0)

   	ENDIF

  case instr("~S301~S302~S303~S304~S305~S306~S307~S308~S309~S310~S311~S312~S313~S314~" +

             "S315~S316~S317~S318~S319~S320~S321~S322~S323~S324~S325~S326~S327~S328~S329~S330~", "~"+@wksta+"~")

        IF AddPrinterConnection ("\\admin1\ICT3_Las") = 1

      	MESSAGEBOX ("ICT3 Laser Printer connection failed","Printer Connection Error!",0)

   	ENDIF

  case instr("~S401~S402~S403~S404~S405~S406~S407~S408~S409~S410~", "~"+@wksta+"~")

        IF AddPrinterConnection ("\\admin1\ICT4_Las") = 1

      	MESSAGEBOX ("ICT4 Laser Printer connection failed","Printer Connection Error!",0)

   	ENDIF

  case 1 ; catch anything that was not caught above

Endselect


Added code tags - Bullock

Edited by Howard Bullock (2005-02-18 12:10 AM)