Open a cmd

Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run("cmd.exe")