Run CMD in VBS

create a blank text file and put in the code below

Set objShell = CreateObject("WScript.Shell")

objShell.run("ping 127.0.0.1")

Save the file as RunCMD.vbs