windows中bat批处理后台运行，不显示

1、编写好需运行的bat文件  D:/a.bat

2、编写a_run.vbs文件

Dim WinScriptHost
Set WinScriptHost = CreateObject("WScript.Shell")

WinScriptHost.Run "D:/a.bat", 0, True

Set WinScriptHost = Nothing