|
Thanks again... ok 3rd time lucky. How does this look (I have kind of assumed I can use ELSE statements!)
;***************************************************************************
;******** 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") = 0
MESSAGEBOX ("ICT1 Laser Printer Connected!","Printer Connected!",0)
ELSE
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") = 0
MESSAGEBOX ("ICT2 Laser Printer Connected!","Printer Connected!",0)
ELSE
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") = 0
MESSAGEBOX ("ICT3 Laser Printer Connected!","Printer Connected!",0)
ELSE
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") = 0
MESSAGEBOX ("ICT4 Laser Printer Connected!","Printer Connected!",0)
ELSE
MESSAGEBOX ("ICT4 Laser Printer connection failed","Printer Connection Error!",0)
ENDIF
case instr("~TECHNICIAN01~", "~"+@wksta+"~")
IF AddPrinterConnection ("\\technician02\Technician") = 0
MESSAGEBOX ("Technician Laser Printer Connected!","Printer Connected!",0)
ELSE
MESSAGEBOX ("Technician Laser Printer connection failed","Printer Connection Error!",0)
ENDIF
case instr("~ART01~ART02~", "~"+@wksta+"~")
IF AddPrinterConnection ("\\admin1\Art_Col") = 0
MESSAGEBOX ("Art Laser Printer Connected!","Printer Connected!",0)
ELSE
MESSAGEBOX ("Art Laser Colour connection failed","Printer Connection Error!",0)
ENDIF
case 1 ; catch anything that was not caught above
Endselect
;***************************************************************************
| 
