Here, please make sure you're using KiXtart 4.22 or 4.23 and give this a try. 

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

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

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

Break On

Dim $PrintGroup01,$PrintGroup02,$PrintGroup03,$PrintGroup04,$Msg

 

$PrintGroup01=Split('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','|')

 

$PrintGroup02=Split('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','|')

 

$PrintGroup03=Split('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','|')

 

$PrintGroup04=Split('S401|S402|S403|S404|S405|S406|S407|S408|S409|S410','|')

 

Select

  Case AScan($PrintGroup01,@WKSTA)>=0

    If AddPrinterConnection('\\admin1\ICT1_Las')<>0

      $Msg=MessageBox('ICT1 Laser Printer connection failed','Printer Connection Error!',16)

    EndIf

  Case AScan($PrintGroup02,@WKSTA)>=0

    If AddPrinterConnection('\\admin1\ICT2_Las')<>0

      $Msg=MessageBox('ICT2 Laser Printer connection failed','Printer Connection Error!',16)

    EndIf

  Case AScan($PrintGroup03,@WKSTA)>=0

    If AddPrinterConnection('\\admin1\ICT3_Las')<>0

      $Msg=MessageBox('ICT3 Laser Printer connection failed','Printer Connection Error!',16)

    EndIf

  Case AScan($PrintGroup04,@WKSTA)>=0

    If AddPrinterConnection('\\admin1\ICT4_Las')<>0

      $Msg=MessageBox('ICT4 Laser Printer connection failed','Printer Connection Error!',16)

    EndIf

  Case 1

    $Msg=MessageBox('Unable to determine which printer to install.' + @CRLF +

    'Your system ' + @WKSTA + ' was not found in the list.','Printer Connection Error!',16)

EndSelect


Edited by NTDOC (2005-02-18 12:42 AM)