可以简单地使用下面语句实现窗口的标题
SetobjShell = CreateObject("Wscript.Shell")
objShell.Run("%comspec%/K title My Command Window |ping.exe 192.168.1.1"), 1, TRUE
上面我们新建了一个Wscript.Shell对象实例(instance)，然后我们使用Run行为运行Ping.exe，并且使用%comspec%启动了一个新命令窗口，使用/K开关确保窗口在脚本结束后依然打开状态，并且设置窗口的Title为”My CommandWindows”，这样显得界面更直接。
我们使用了|符号来确保同时运行了Ping命令。相当于我们下了这样的指令：“打开一个命令窗口，设置窗口抬头，并且运行Ping.exe”。如果没有管道符号，脚本将打开一个新的Title为”My CommandWindows”命令行窗口，关闭后再打开另一个窗口运行Ping.exe。
您可以尝试下面代码
SetobjShell = CreateObject("Wscript.Shell")
objShell.Run("%comspec%/K title My Command Window "), 1, TRUE
objShell.Run("ping.exe10.0.1.1"), 1, TRUE
可以看到抬头并没有被修改。
当然，如果您想同时修改前后界面的颜色，可以尝试下列代码
SetobjShell = CreateObject("Wscript.Shell")
objShell.Run("%comspec%/T:2E /K title My Command Window|ping.exe " & "10.0.1.1"),1, TRUE
我们是通过/T开关实现的，2代表绿色，E代表黄，具体颜色代码如下:
0 =Black
1 =Blue
2 =Green
3 =Aqua
4 =Red
5 =Purple
6 =Yellow
7 =White
8 =Gray
9 =Light Blue
A =Light Green
B =Light Aqua
C =Light Red
D =Light Purple
E =Light Yellow
F =Bright White
欢迎微信扫一扫或搜索关注我的“Windows自动化运维”公众号，我会每天定期发布Windows自动化运维的相关知识供大家讨论研究.
本人微信号：bjyizhang，加好友请注明“脚本讨论“