Я устанавливаю perl на большинстве своих машин, поэтому ответ с помощью perl: tee.pl
my $file = shift || "tee.dat";
open $output, ">", $file or die "unable to open $file as output: $!";
while(<STDIN>)
{
print $_;
print $output $_;
}
close $output;
dir | perl tee.pl или каталог | perl tee.pl dir.bat
сырой и непроверенный.