Batch Command in Vbscript

Hi ,
Can any one tell how to insert batch commands in vbscript to make it useful with single click .
using the follwoing code i am running bath file
Set WshShell = WScript.CreateObject(“WScript.Shell”)
obj = WshShell.Run(“C:\hai\run.bat”, 0)
set WshShell = Nothing

it invoking bat file and run commands in that file

now i want to place those commands in the bat file in to the vbs file with out using bat file to generate every thing using vbs how can code this.

please assist me thanking you in-advance