Запустить bat-файл без командной строки от имени администратора?

Question

Я перепробовал много решений, но они как-то не сработали.

В настоящее время я могу запустить файл bat без командного окна из VBS, но я не знаю, как запустить его от имени администратора.

VBScript (поэтому я могу запустить командный файл без командного окна):

Set oShell = CreateObject ("Wscript.Shell") Dim strArgs strArgs = "cmd /c Start.bat" oShell.Run strArgs, 0, false

Пакет (Start.bat):

Start /wait Application.exe Net stop ServiceNameGoesHere

Как запустить командный файл от имени администратора, но сделать его невидимым?

Answer 1

Вместо этого вы можете использовать метод ShellExecute объекта Windows Shell и использовать операцию runas .

Set Shell = CreateObject("Shell.Application")
Shell.ShellExecute "Start.bat", , , "runas", 0

Это запросит высоту и запустит Start.bat .

Аргументы ShellExecute (взяты и обобщены на странице ShellExecute в MSDN):

• sFile [in] - Строка имени файла для выполнения операции
• vArguments [in, необязательно] - строка аргументов (аргументы командной строки)
• vDirectory [in, необязательный] - полный путь к каталогу, содержащему файл, указанный в sFile. Если этот параметр не указан, используется текущий рабочий каталог.
• vOperation [in, необязательный] - операция, которая должна быть выполнена. Если этот параметр не указан, выполняется операция по умолчанию.
• vShow [in, необязательно] - рекомендация по отображению начального окна. 0 для скрытого.

Если вам абсолютно необходимо использовать cmd /c для запуска командного файла, вам необходимо указать полный путь к нему. Вызов будет выглядеть примерно так:

Set Shell = CreateObject("Shell.Application")
Shell.ShellExecute "cmd", "/c F:\ull\path\to\Start.bat", , "runas", 0

Answer 2

Вы можете добавить этот код в начало командного файла, и он сам запросит права администратора:

@echo off

:: BatchGotAdmin
:-------------------------------------
REM  --> Check for permissions
    IF "%PROCESSOR_ARCHITECTURE%" EQU "amd64" (
>nul 2>&1 "%SYSTEMROOT%\SysWOW64\cacls.exe" "%SYSTEMROOT%\SysWOW64\config\system"
) ELSE (
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
)

REM --> If error flag set, we do not have admin.
if '%errorlevel%' NEQ '0' (
    echo Requesting administrative privileges...
    goto UACPrompt
) else ( goto gotAdmin )

:UACPrompt
    echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
    set params = %*:"=""
    echo UAC.ShellExecute "cmd.exe", "/c ""%~s0"" %params%", "", "runas", 1 >> "%temp%\getadmin.vbs"

    "%temp%\getadmin.vbs"
    del "%temp%\getadmin.vbs"
    exit /B

:gotAdmin
    pushd "%CD%"
    CD /D "%~dp0"
:--------------------------------------    
    <YOUR BATCH SCRIPT HERE>

Отсюда:https://stackoverflow.com/a/10052222/5518385