АН Андрей Неклюдов Set objShell = CreateObject("Shell.Application") objShell.ShellExecute "E:\demo\batchScript.bat", "", "", "runas", 1