VBA: 如何以管理员身份打开命令提示符并使用 cscript 调用 VBS？
VBA: How to Open command prompt as Administrator and call a VBS using cscript?
我正在尝试以管理员身份打开命令提示符并且 运行 使用 CScript 的 .VBS 文件。
我发现 post 用于 运行ning cmd 作为管理员：
Shell "powershell.exe -Command " & Chr(34) & "Start-Process cmd -Verb RunAs", vbNormalFocus
还找到 post 用于 运行 一个 VBS 文件：
SFilename = "Cscript " & Chr(34) & "C:\Temp\Run.vbs " & Chr(34) & " " & pParam1 & " " & pParam2
Shell SFilename, vbNormalFocus
但是，有人可以帮助我在单个 cmd 中完成这两件事吗window？
我尝试将 Shell 语句和 运行ning 一个接一个地合并，但没有成功。
复制@Noodles 的答案以便将此问题标记为已回答：
Set oShell = CreateObject("Shell.Application")
oShell.ShellExecute "cscript.exe", "//nologo c:temp\run.vbs", , "runas", 1
或命令
oShell.ShellExecute "cmd.exe", "/k cscript //nologo c:temp\run.vbs", , "runas", 1
我正在尝试以管理员身份打开命令提示符并且 运行 使用 CScript 的 .VBS 文件。
我发现 post 用于 运行ning cmd 作为管理员：
Shell "powershell.exe -Command " & Chr(34) & "Start-Process cmd -Verb RunAs", vbNormalFocus
还找到 post 用于 运行 一个 VBS 文件：
SFilename = "Cscript " & Chr(34) & "C:\Temp\Run.vbs " & Chr(34) & " " & pParam1 & " " & pParam2
Shell SFilename, vbNormalFocus
但是，有人可以帮助我在单个 cmd 中完成这两件事吗window？
我尝试将 Shell 语句和 运行ning 一个接一个地合并，但没有成功。
复制@Noodles 的答案以便将此问题标记为已回答：
Set oShell = CreateObject("Shell.Application")
oShell.ShellExecute "cscript.exe", "//nologo c:temp\run.vbs", , "runas", 1
或命令
oShell.ShellExecute "cmd.exe", "/k cscript //nologo c:temp\run.vbs", , "runas", 1