OK.. I am feeling a little slow as I have not used the EXECUTE() before. [Frown]

Here is the code at this point -
code:
 CLS
 BREAK ON
 $fl=@scriptdir+'\test.ini'
 ENUMINI($fl)
 FUNCTION ENUMINI($fl)
  $sections=split(readprofilestring($fl,'',''),chr(10))
  FOR EACH $sectionentry IN $sections
   IF $sectionentry <>''
    ?'Section '+$sectionentry
    $keys=split(readprofilestring($fl,$sectionentry,''),chr(10))
    FOR EACH $sectionkey IN $keys
     IF $sectionkey <>''
      ? 'Key "'+$sectionkey+'" = "'+readprofilestring($fl,$sectionentry,$sectionkey)+'"'
      $resource=readprofilestring($fl,$sectionentry,$sectionkey)
      IF INSTR($resource,'$')
       $server=SPLIT($resource,'\')[2]
       $nul=Execute('$$resource = '+@userid+'$$')
       ;$nul=Execute('$$resource = '+@USERID+'$$')
       ;?$$resource
       IF INGROUP($sectionentry)
        ;USE $sectionkey+':' '\\'+$server+'\'+$$resource+'$$'
        USE $sectionkey+':' '\\'+$server+'\'+@userid+'$$'
       ENDIF
      ELSE
       IF INGROUP($sectionentry)
        USE $sectionkey+':' $resource
       ENDIF
      ENDIF
     ENDIF
    NEXT
   ENDIF
  NEXT
 ENDFUNCTION
I am sure that this can be improved upon.

Thanks,

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