For this particular application you could get away with ReadAll and a single split:

 Code:
Dim $fso, $txt
 
$fso = CreateObject("Scripting.FileSystemObject")
$txt = $fso.OpenTextFile("c:\boot.ini",Not 0)
 
$Array=Split($txt.ReadAll,@CRLF)
 
$txt.Close
 
For Each $item in $Array
  ? "Line: " + $item
Next