如何在Visual Basic的Windows窗体中通过按钮打开‘计算机管理’？

嗨，我之前做WinForms项目时也碰到过一模一样的问题！你的思路其实没毛病，但可能是几个小细节没注意到，导致Process.Start("compmgmt.msc")没生效，下面给你几个亲测有效的解决办法：

• 先补全基础配置：确保你的窗体代码最顶部导入了System.Diagnostics命名空间——没有它的话，Process类根本没法正常工作。添加这行代码：

  Imports System.Diagnostics
  

• 如果导入命名空间后还是不行，试试指定compmgmt.msc的完整系统路径。有时候系统环境变量的路径映射会出小问题，用完整路径调用更稳妥：

  Private Sub btnOpenComputerManagement_Click(sender As Object, e As EventArgs) Handles btnOpenComputerManagement.Click
      Process.Start("C:\Windows\System32\compmgmt.msc")
  End Sub
  

• 要是依旧打不开，大概率是64位系统的路径重定向在搞鬼：如果你的项目目标平台是x86，Windows会自动把System32的请求重定向到SysWOW64目录，但compmgmt.msc是64位专属工具，并不在SysWOW64里。这时候你有两个选择：

  1. 改项目目标平台：右键项目 → 属性 → 编译 → 目标CPU，改成Any CPU或x64
  2. 临时禁用路径重定向（适合必须用x86的场景）：

     Imports System.IO
     Imports System.Diagnostics
     Imports System.Runtime.InteropServices
     
     Private Sub btnOpenComputerManagement_Click(sender As Object, e As EventArgs) Handles btnOpenComputerManagement.Click
         ' 禁用Wow64文件系统重定向
         Dim oldValue As Boolean
         Wow64DisableWow64FsRedirect(oldValue)
         Try
             Process.Start(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Windows), "System32", "compmgmt.msc"))
         Finally
             ' 恢复重定向，避免影响其他代码
             Wow64RevertWow64FsRedirect(oldValue)
         End Try
     End Sub
     
     ' 声明系统API函数
     <DllImport("kernel32.dll", SetLastError:=True)>
     Private Shared Function Wow64DisableWow64FsRedirect(ByRef OldValue As Boolean) As Boolean
     End Function
     
     <DllImport("kernel32.dll", SetLastError:=True)>
     Private Shared Function Wow64RevertWow64FsRedirect(ByRef OldValue As Boolean) As Boolean
     End Function
     

• 最后还有权限的可能：如果你的系统UAC设置偏严格，试试以管理员身份运行程序，或者在代码里主动请求权限：

  Private Sub btnOpenComputerManagement_Click(sender As Object, e As EventArgs) Handles btnOpenComputerManagement.Click
      Dim psi As New ProcessStartInfo("compmgmt.msc")
      psi.Verb = "runas" ' 触发管理员权限请求
      psi.WindowStyle = ProcessWindowStyle.Normal
      Try
          Process.Start(psi)
      Catch ex As Exception
          ' 处理用户拒绝授权的情况
          MessageBox.Show("需要管理员权限才能打开计算机管理哦！")
      End Try
  End Sub
  

我当时是因为项目默认设成了x86，导致路径被重定向，改了Any CPU之后就正常打开了，你可以挨个试试这些方法，应该能解决问题！

备注：内容来源于stack exchange，提问作者Sammie