VBSでwcコマンドを

なんかもっと別の方法有るだろうと思いつつ。でも制御が帰ってこないので処理してるのかどうなのかわかんないよね。
cygwin入れた方が早いかも。

'LineCount.vbs
dim fs 

set fs=wscript.CreateObject("Scripting.FileSystemObject")

dim of 
Dim args

Set args = WScript.Arguments
set of=fs.openTextFile(args(0))
dim lc

lc=0

do until of.AtEndOfStream

	of.readline

	lc=lc+1

loop

wscript.echo args(0) & vbtab &  lc
of.close

set of=nothing

set of=nothing