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:fc /K Title My Command Window |ping 192.168.1.1"), 1, TRUE