Вот что в MSDN нарыл:
Код:
The following example returns the error code from the executed application:
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("notepad " & WScript.ScriptFullName, 1, TRUE)
Так что в барсике можно написать что-нить наподобие:
Код:
Dim WshShell, ret
Set WshShell = CreateObject("WScript.Shell")
ret = WshShell.Run("rar a -m5 -md1024 -u -rr -r d:\temp\v.rar d:\temp\v", 1, True)
P.S. Можно также посмотреть в сторону API-функции GetExitCodeProcess(), но приведенный вариант мне кажется проще =)