Set objShell = CreateObject("WScript.Shell")
objShell.Run "%comspec% /K dir",3,True