VBA：如何以管理员身份打开命令提示符并使用cscript调用VBS？

Question

我尝试以管理员身份打开命令提示符并使用CScript运行.VBS文件。

我找到了以管理员身份运行cmd的帖子：

Shell＆＃34; powershell.exe -Command＆＃34; ＆安培; Chr（34）＆amp; ＆＃34; Start-Process cmd -Verb RunAs＆＃34;，vbNormalFocus

还找到了运行VBS文件的帖子：

SFilename =＆＃34; Cscript＆＃34; ＆安培; Chr（34）＆amp; ＆＃34; C：\ Temp \ Run.vbs＆＃34; ＆安培; Chr（34）＆amp; ＆＃34; ＆＃34; ＆安培; pParam1＆amp; ＆＃34; ＆＃34; ＆安培; pParam2

Shell SFilename，vbNormalFocus

但是，有人可以帮助我在单个cmd窗口中完成这两件事吗？

我尝试合并两个Shell身份并一个接一个地运行，但没有运气。

Answer 1

复制@Noodles答案，以便将此问题标记为已回答：

Set oShell = CreateObject("Shell.Application")
oShell.ShellExecute "cscript.exe", "//nologo c:temp\run.vbs", , "runas", 1 

或cmd

oShell.ShellExecute "cmd.exe", "/k cscript //nologo c:temp\run.vbs", , "runas", 1