You would need to start like this:
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run("%comspec% /k ping /?"), 1, True
This script opens Cmd.Exe, and Command.Exe (depending on which version you have) and then runs Ping Info. The /k keeps the window open, and to make it close automatically, you would use /c.
Create your code, then put it in a batch file, then use this code and call the batch file, probably using /c.