Are you even sure that the script runs at all? How do you call the script?
Try the script below:
Code:

$location=substr(@wksta,1,6)
? 'Location: '+$location
? 'Press any key to continue...'
get $key
RUN "c:\program files\netscape\communicator\program\netscape.exe"
? 'Error '+@ERROR+' - '+@SERROR
Select
Case $location="pc3775"
  $rc=ADDPRINTERCONNECTION("\\CCISIC\IMAGEPR1")
  ? 'Error '+@ERROR+' - '+@SERROR
  $rc=ADDPRINTERCONNECTION("\\CCISIC\AISLE7")
  ? 'Error '+@ERROR+' - '+@SERROR
Case $location="pc3399"
  $rc=ADDPRINTERCONNECTION("\\CCISIC\IMAGEPR1")
  ? 'Error '+@ERROR+' - '+@SERROR
  $rc=ADDPRINTERCONNECTION("\\CCISIC\AISLE7")
  ? 'Error '+@ERROR+' - '+@SERROR
Case 1
  $rc=ADDPRINTERCONNECTION("\\CCISIC\IMAGEPR1")
  ? 'Error '+@ERROR+' - '+@SERROR
EndSelect
$rc=SETDEFAULTPRINTER("\\CCISIC\IMAGEPR1")
? 'Error '+@ERROR+' - '+@SERROR
_________________________
There are two types of vessels, submarines and targets.