You mean something like:

Code:

$File='c:\perml.txt'
$RC=Open(1,$File)
$Line=ReadLine(1)
WHILE $Line <> '' AND @ERRORLEVEL=0
   $aPerms=Split($Line,':')
   $sPerms=$aPerms[1]
   IF Perms($sPerms)
      'Found perms' ?
   ELSE
      'No perms found' ?
   ENDIF
   $Line=ReadLine(1)
LOOP
$RC=Close(1)

FUNCTION Perms($sPerms)
   DIM $i
   $sPerms=Trim($sPerms)
   FOR $i = 1 TO Len($sPerms)
      ' Check permissions one-by-one however you want
      IF SubStr($sPerms,$i,1) <> '-'
         $Perms=1
      ENDIF
   NEXT
ENDFUNCTION