VBA: Как открыть командную строку в качестве администратора и вызвать VBS с помощью cscript?

Question

Я пытаюсь открыть командную строку в качестве администратора и запустить файл .VBS с помощью CScript.

Я нашел пост для запуска CMD от имени администратора:

Shell "powershell.exe -команд" & Chr (34) & "Start-Process CMD -Verb RunAs", vbNormalFocus

Найден также пост для запуска VBS файла:

SFilename = "CSCRIPT" & Chr (34) & "C: \ Temp \ Run.vbs" & Chr (34) & "" & pParam1 & " "& pParam2

Shell SFilename, vbNormalFocus

Однако, может кто-нибудь помочь мне получить и то и другое сделано в одном окне CMD?

Я пробовал объединять статуты Shell и запускать один за другим, но не повезло.

Answer 1

Копирование @Noodles ответ для того, чтобы отметить этот вопрос ответил: Set oShell = CreateObject ("Shell.Application"): oShell.ShellExecute "cscript.exe", «// NOLOGO с: TEMP \ run.vbs "," runas ", 1 изменить на cmd oShell.ShellExecute" cmd.exe ","/k cscript // nologo c: temp \ run.vbs ",," runas ", 1 Спасибо @Noodles !!