ok, after some thinking, this scriptlet should take care of everything in your script between lines:
quote:
;Ref. - ht
and:
quote:
;CHECK
so:
code:
$index=0
do
 if '\\'=left($x,2)
  $priReg=$priReg+$x
 endif
 $index=$index+1
 $x=enumvalue($dev,$index)
until @error=0 or not len($x)

if len($priReg)
 if exist($ps)
  del $ps
 endif
 for each $x in split(substr($priReg,3),'\\')
  $rc=writeprofilestring($ps,'Printers',$index,'\\'+$x)
 next
endif
_________________________
!

download KiXnet