Option Explicit

Const cnAFS = 3 ' 3 Activates the window and displays it as a maximized window.
Dim iRet : iRet = CreateObject("WScript.Shell").Run("25939545.bat", cnAFS, True)
WScript.Echo "Done"