Os comandos que usam Somecommand > somefile
devem ser executados pelo comando (cmd), pois o comando manipula o redirecionamento. Você pode lidar com o redirecionamento sozinho. Isso captura forfiles
como cmd
.
Set Inp = WScript.Stdin
Set Outp = Wscript.Stdout
Set cmd = CreateObject("Wscript.Shell").Exec("forfiles")
cmd.stdin.writeline "dir"
cmd.stdin.writeline "exit"
Do While Not cmd.stdout.AtEndOfStream
results = cmd.stdout.readall
If err.number <> 0 then Exit Do
wscript.echo results
Loop