Jooel,

Thanks for the update..

However, found a problem. Installed 3 network printers and it only picks up two of them. Note: the change of $index=index+1.

code:
 $index=0
do
 if '\\'=left($x,2)
  $priReg=$priReg+$x
 endif
 $x=enumvalue($dev,$index)
 $index=$index+1
until @error<>0 or not len($x)

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

Kent
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's