strFile=InputBox("Enter a text file or script:",_
"Number Me!","c:\boot.ini")

strcmd="cmd /c type " & strFile
Set objShell=CreateObject("WScript.Shell")
Set objExec=objShell.Exec(strCmd)

Do While objExec.StdOut.AtEndOfStream <> True
    line= objExec.StdOut.Readline
    iNum=WScript.StdOut.Line
    WScript.StdOut.writeline iNum & " " & line
Loop