) не приходилось с ним работать, но предполагаю, что начать нужно с WshExec и выяснить поддерживает ли это приложение работу со стандартными потоками StdIn и StdOut. Т.к найти модуль этого приложения я сам не смог, то провести эксперимент соответственно тоже.Предположительно копать нужно в аналогичном направлении.
Option Explicit
Dim WshShell, WshExec
Set WshShell = CreateObject("WScript.Shell")
Set WshExec = WshShell.Exec("cmd.exe")
WshExec.StdIn.WriteLine "ping 127.0.0.1"
WshExec.Terminate()
MsgBox ConvertCharset(WshExec.StdOut.ReadAll,"windows-1251","cp866")
Function ConvertCharset(text,srcCharset,destCharset)
Dim stream
Set stream = CreateObject("ADODB.Stream")
stream.charset = srcCharset
stream.type = 2
stream.open
stream.writeText text
stream.position = 0
stream.charset = destCharset
ConvertCharset = stream.readText
End Function