Запустите объект Wscript.Shell, чтобы вызвать административную командную строку для PsExec [duplicate]
3 ответа
fun lil batch file
@set E=ECHO &set S=SET &set CS=CScript //T:3 //nologo %~n0.vbs /REALTIME^>nul^& timeout 1 /NOBREAK^>nul^& del /Q %~n0.vbs&CLS
@%E%off&color 4a&title %~n0&%S%CX=CLS^&EXIT&%S%BS=^>%~n0.vbs&%S%G=GOTO &%S%H=shell&AT>NUL
IF %ERRORLEVEL% EQU 0 (
%G%2
) ELSE (
if not "%minimized%"=="" %G%1
)
%S%minimized=true & start /min cmd /C "%~dpnx0"&%CX%
:1
%E%%S%%H%=CreateObject("%H%.Application"):%H%.%H%Execute "%~dpnx0",,"%CD%", "runas", 1:%S%%H%=nothing%BS%&%CS%&%CX%
:2
%E%%~dpnx0 fvcLing admin mode look up&wmic process where name="cmd.exe" CALL setpriority "realtime"& timeout 3 /NOBREAK>nul
:3
%E%x=msgbox("end of line" ,48, "%~n0")%BS%&%CS%&%CX%
-
1– Daphnis 4 July 2013 в 11:32
-
2– Ansgar Wiechers 4 July 2013 в 11:44
-
3– Daphnis 4 July 2013 в 11:54
-
4– Ansgar Wiechers 4 July 2013 в 12:13
-
5– Daphnis 4 July 2013 в 12:48
-
6– Lizz 26 November 2014 в 06:32
-
7– gronostaj 24 September 2016 в 08:25
-
8– Ansgar Wiechers 25 September 2016 в 00:16
-
9– Clint Street 11 March 2017 в 19:13
-
10– Raz 7 June 2018 в 02:56
Хорошая статья для вариантов высоты - http://www.novell.com/support/kb/doc.php?id=7010269
Настройка приложений на Всегда запрашивать повышенные права:
Программы могут быть настроены так, чтобы всегда запрашивать возвышение на уровне пользователя с помощью параметров реестра в HKCU. Эти параметры реестра эффективны «на лету», поэтому их можно установить сразу перед запуском конкретного приложения и даже удалить, как только приложение будет запущено, если это необходимо. Просто создайте «String Value» в разделе «HKCU \ Software \ Microsoft \ Windows NT \ CurrentVersion \ AppCompatFlags \ Layers» для полного пути к исполняемому файлу со значением «RUNASADMIN». Ниже приведен пример CMD.
Windows Registry Editor Version 5.00
[HKEY_Current_User\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers]
"c:\\windows\\system32\\cmd.exe"="RUNASADMIN"
-
1– masterxilo 23 November 2017 в 22:56
`Мой путь к файлам vbs:
D: \ QTP Practice \ Driver \ Testany.vbs '
objShell = CreateObject("Shell.Application") objShell.ShellExecute "cmd.exe","/k echo test", "", "runas", 1 set x=createobject("wscript.shell") wscript.sleep(2000) x.sendkeys "CD\"&"{ENTER}"&"cd D:"&"{ENTER}"&"cd "&"QTP Practice\Driver"&"{ENTER}"&"Testany.vbs"&"{ENTER}"- из поиска google и некоторые настройки, работающие на меня