可以简单地使用下面语句实现窗口的标题

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，加好友请注明“脚本讨论“