'******************
'* intWindowStyle 控制 CMD 窗口显示状态
'*  （详细说明参键 VBS Run命令说明）
'* 0 隐藏一个窗口并激活另一个窗口。 1(默认值) 激活并显示窗口。
'*
'* isWait 指示是否等待 CMD 命令执行完毕再继续执行 VBS 后续代码
'*
'******************
Function RunBat(BatString, intWindowStyle, isWait)
Set objShell=CreateObject("WScript.Shell")
Dim exeCmd
exeCmd="cmd /c "&BatString
objShell.Run exeCmd, intWindowStyle, isWait
End Function


Dim n, bat1, bat2

'由于Run命令中不能包含换行符号，因此只能勉强用 & 将所有CMD命令连成一行
'如果 & 会给你的批处理带来逻辑错误请勿使用
n=Chr(38)

bat1=        "@echo off" & n & _
                "title CMD窗口"  & n & _
                "echo 算你小子识相！"  & n & _
                "pause>nul"

bat2=        "@echo off" & n & _
                "title CMD窗口"  & n & _
                "color 17"   & n & _
                "echo 草泥马"  & n & _
                "pause>nul"

If MsgBox("我是不是很牛逼？", 36, "VBS窗口")=6 Then
RunBat bat1, 1, True
Else
RunBat bat2, 1, False
End If

MsgBox "请注意我出来的时候BAT是否执行完毕。", 4112, "isWait 的作用"