Set objShell = CreateObject("Wscript.Shell")

'objShell.Run    ("%comspec% /T:2E /K title My Command Window |ping 127.0.0.1"), 1, TRUE
objShell.Run ("%comspec% /T:F0 /K  Title My Command Window |ipconfig"), 1, TRUE


'objShell.Run ("ipconfig /all > ip.txt"), 1, TRUE
'objShell.Run ("notepad.exe ip.txt"), 1, TRUE