それほどスマートじゃないけどWSHを（batに埋め込んで）使う方法
（WSHには連想配列の要素数をカウントするものがないのでループで回してカウント）
（powershellと使う方法がいいかもしれないがpowershellはイニシャルコストが大きいのでよく使う人向き）
@if (0)==(0) echo off
cscript //nologo /e:jscript "%~f0" < data.txt
rem findstr "." data.txt|cscript //nologo /e:jscript "%~f0"
goto :eof
@end
var table={}, data, count=0;
while(!WScript.StdIn.AtEndOfStream) {
data = WScript.StdIn.ReadLine();
if (data.length) { table[data] += 1; WScript.Echo(data); }
}
for (i in table) { count++; }
WScript.Echo(count);