如何以管理员身份运行 CMD.exe

Question

已使用 2 个文本框的内容成功运行 DOS 命令。我试图解决的问题是…………。

我如何以提升的权限运行（作为管理员）

谁能帮帮我？

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  Shell($"cmd.exe /c {TextBox1.Text} {TextBox2.Text}")
End Sub

Answer 1

无法使用 Shell() 以管理员身份运行应用程序（除非目标文件设置为始终以管理员访问权限运行）。

改为使用ProcessStartInfo 和Process.Start()：

Dim psi As New ProcessStartInfo()
psi.Verb = "runas" ' aka run as administrator
psi.FileName = "cmd.exe"
psi.Arguments = "/c " & TextBox1.Text & TextBox2.Text ' <- pass arguments for the command you want to run

Try
  Process.Start(psi) ' <- run the process (user will be prompted to run with administrator access)
Catch
  ' exception raised if user declines the admin prompt
End Try