Set o = CreateObject("Wscript.Shell")
o.Run ("%comspec%  /K  Title Windows IP Configuration | ipconfig /all"), 1, TRUE