Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "cmd.exe", "/c """ & "D:\Evolução categorias\.worktrees\comissao\Instalar Servico Windows.bat" & """", "", "runas", 1