最小化、非表示状態でバッチファイルを実行

Option Explicit

Const vbHide = 0             'ウィンドウを非表示
Const vbNormalFocus = 1      '通常のウィンドウ、かつ最前面のウィンドウ
Const vbMinimizedFocus = 2   '最小化、かつ最前面のウィンドウ
Const vbMaximizedFocus = 3   '最大化、かつ最前面のウィンドウ
Const vbNormalNoFocus = 4    '通常のウィンドウ、ただし、最前面にはならない
Const vbMinimizedNoFocus = 6 '最小化、ただし、最前面にはならない

Dim objWShell

Set objWShell = CreateObject("WScript.Shell")

objWShell.Run "cmd /C C:\bakup\todobakup.bat", vbMinimizedNoFocus, False

Set objWShell = Nothing

参考
http://www.happy2-island.com/vbs/cafe02/capter00110.shtml