The old script looked like this

 Code:
; ************************************************************************************************************************************************
; * Printer mapping
; ************************************************************************************************************************************************
if LEFT(@WKSTA,3)="LAP"
open(5,$ldrive+"ptrlist.txt",2)
 while $errorptr=0
  $printer=readline(5)
  $errorptr=@error
  $ptr="ptr"+$printer
  $ptrold="\\Raja\"+$printer
  $ptrmap="\\Saucha\"+$printer
  if ingroup($ptr)
   delprinterconnection($ptrold)
   addprinterconnection($ptrmap)
   $ptd="ptd"+$printer
   if ingroup($ptd)
    setdefaultprinter($ptrmap)
   endif
  else
   delprinterconnection($ptrmap)
  endif
 loop
close(5)
endif


Edited by Mart (2010-10-22 09:06 AM)
Edit Reason: Please use code tags when posting code.