I did the loop around the select. I still want to find a way to make it faster, but that is a lower priority, at the moment. I wish I would not get so many reports formatted differently from people.

Thanks

code:
WHILE @Error = 0
  $LineCheck = 1
  WHILE $LineCheck = 1
    SELECT
      CASE Substr ($LineComputerList, 1, 2) = '\\'
        $LineComputerList = Substr ($LineComputerList, 3, Len ($LineComputerList))
      CASE Substr ($LineComputerList, 1, 1) = '\'
        $LineComputerList = Substr ($LineComputerList, 2, Len ($LineComputerList))
      CASE Substr ($LineComputerList, 1, 1) = '"'
        $LineComputerList = Substr ($LineComputerList, 2, Len ($LineComputerList))
      CASE InStr ($LineComputerList, '"') > 1
        $LineComputerList = Substr ($LineComputerList, 1, InStr ($LineComputerList, '"') - 1)
      CASE Substr ($LineComputerList, 1, 1) = "'"
        $LineComputerList = Substr ($LineComputerList, 2, Len ($LineComputerList))
      CASE InStr ($LineComputerList, "'") > 1
        $LineComputerList = Substr ($LineComputerList, 1, InStr ($LineComputerList, "'") - 1)
      CASE InStr ($LineComputerList, ' ') > 1
        $LineComputerList = Substr ($LineComputerList, 1, InStr ($LineComputerList, ' ') - 1)
      CASE InStr ($LineComputerList, Chr (9)) > 1
        $LineComputerList = Substr ($LineComputerList, 1, InStr ($LineComputerList, Chr (9)) - 1)
      CASE InStr ($LineComputerList, ',') > 1
        $LineComputerList = Substr ($LineComputerList, 1, InStr ($LineComputerList, ',') - 1)
      CASE InStr ($LineComputerList, ';') > 1
        $LineComputerList = Substr ($LineComputerList, 1, InStr ($LineComputerList, ';') - 1)
      CASE InStr ($LineComputerList, '.') > 1
        $LineComputerList = Substr ($LineComputerList, 1, InStr ($LineComputerList, '.') - 1)
      CASE 1
        $LineCheck = 0
    ENDSELECT
  LOOP
  IF $LineComputerList <> '' AND NOT InStr ($TempComputerList, $LineComputerList) AND 
   Len ($LineComputerList) < 16 AND NOT InStr (Lcase ($LineComputerList), 'computer') AND 
   NOT InStr (Lcase ($LineComputerList), 'workstation') AND 
   NOT InStr (Lcase ($LineComputerList), 'rfid') AND 
   Lcase (Substr ($LineComputerList, 1, 2)) <> 'pwr'
    $TempComputerList = $TempComputerList + $LineComputerList + ','
  ENDIF
  $LineComputerList = ReadLine (10)
LOOP
_________________________
Kelly