ウィンドウを表示せずにバッチを実行する

Dim obj_sh
Set obj_sh = WSCript.CreateObject("WScript.Shell")
obj_sh.Run "aaa.bat",0