Option Explicit ' NWC2 User Tool, Ver 1.2 - Rick G. 'WScript Scripts\iotest.vbs Dim a2(), a, e, i, s, mark: mark = Timer Select Case WScript.Arguments(0) Case 1 Do Until WScript.StdIn.AtEndOfStream s = WScript.StdIn.ReadLine WScript.StdOut.WriteLine s Loop Case 2 ReDim a2(5000) Do Until WScript.StdIn.AtEndOfStream a2(i) = WScript.StdIn.ReadLine: i = i + 1 Loop ReDim Preserve a2(i) WScript.StdOut.Write Join(a2, vbCrLf) Case 3 a = Split(WScript.StdIn.ReadAll, vbCrLf) For i = 0 To UBound(a) s = a(i) a(i) = s & vbCrLF Next WScript.StdOut.Write Join(a, "") Case 4 a = Split(WScript.StdIn.ReadAll, vbCrLf): i = -1 For Each e In a: i = i + 1 a(i) = e & vbCrLF Next WScript.StdOut.Write Join(a, "") End Select WScript.StdErr.WriteLine Round(Timer - mark, 3) & " seconds" WScript.Quit(1)