IF @WKSTA ("S101"|"S102"|"S103"|"S104"|"S105"|"S106"|"S107"|"S108"|"S109"|"S110"|"S111

"|"S112"|"S113"|"S114"|"S215"|"S116"|"S117"|"S118"|"S119"|"S120"|"S121"|"S12

2"|"S123"|"S124"|"S125"|"S126"|"S127"|"S128"|"S129"|"S130")

select

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

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

        ;do printer stuff

  case something else

  case 1 ; catch anything that was not caught above

Endselect





or





if @wksta = "S101" or @wksta = "S102" or ...  





Edited by Howard Bullock (2005-02-17 09:20 PM)

_________________________

Home page: http://www.kixhelp.com/hb/

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



;******** 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

AddPrinterConnection( )



Action: Adds a connection to the specified printer for the current user.

  

Syntax: ADDPRINTERCONNECTION ("printer name")

  

Parameters: Printer name 



The (share)name of the printer to which to connect.

 

Remarks: This function is available only on Windows NT family, and can be used only to 

connect to printers on a server running the Windows NT/2000/XP operating system. 

When Windows NT connects to the printer, it may copy printer driver files to the local computer. If the user does not have permission to copy files to the appropriate location, ADDPRINTERCONNECTION fails, and @ERROR returns ERROR_ACCESS_DENIED.

 

 

Returns: 0  Printer connection established  

Error code  Function failed  

   

 

See Also: DelPrinterConnection( ), SetDefaultPrinter( )

   

Example: If ADDPRINTERCONNECTION ("\\vleerbeer\hp laserjet 4") = 0

  ? "Added printer connection...."

Endif