Corre por debajo no le aparece la pantalla negra a los usuarios

Set WshShell = WScript.CreateObject(«WScript.Shell»)

ReturnCode = WshShell.Run(«imp.bat», 0, True)