VB Run Batch File

run.vbs
Set oShell = CreateObject("WSCript.shell")
oShell.Run "c:\batch.cmd", 7, False