在 vb.net 中以不同用户身份运行新进程

我目前正在使用一种自行开发的方法在 Vista 中以不同用户的身份运行一个进程，我无法摆脱这样的感觉：它是黑客式的且不太理想（除了它会导致 UAC 崩溃，使我的电脑崩溃）的感觉。应用程序出现安全异常，并迫使我完全禁用 UAC）。我的流程由两个项目（即两个 EXE 文件）组成 - 一个“界面”和一个“启动存根” - 流程如下：

1. 用户有一个启动“Interface.exe notepad.exe”的快捷方式
2. Interface.exe 有一个表单，要求提供他们想要使用的凭据
3. Interace.exe 使用 ProcessStartInfo 创建 LaunchStub.exe (LS) 的实例作为新用户
4. LS 使用 ProcessStartInfo（将 ShellExecute 设置为 true）来启动请求的文件，并且由于它已经作为请求的用户运行，因此新进程也是如此。

我采用两步流程的原因是，我希望用户能够右键单击操作系统具有默认操作的任何文件（.EXE、.SQL、.MSC 等）并启动它，并且仅限 ProcessStartInfo支持启用“UseShellExecute”，但该开关阻止我使用新的凭据，因此我一次只能执行一个操作。

这会导致一些问题 - 首先，用户必须已经存在于计算机上，这意味着他们之前必须在本地登录。如果该用户没有本地配置文件，则请求的应用程序有时会启动，但我会收到注册表和配置文件异常，因为应用程序期望尚不存在的东西（例如注册表中的 HKCU 配置单元，用户不存在）因为他们从未登录过）。

我知道我应该能够将我的应用程序的权限“提升”给他们请求的用户，启动我的新进程，然后撤消提升，但我无法为此找到一个好的代码示例，并且我不确定它是否允许以完全不同的用户身份运行。这一切有意义吗？我只是忍不住觉得有更好的方法来做到这一点。

UPDATE:我刚刚尝试过一些模拟代码 http://weblogs.asp.net/ralfw/archive/2003/11/24/39479.aspx我在网上找到了，但没有效果。当与 ProcessStartInfo 结合使用时，它似乎仍然使用我当前的登录名（而不是我提供的登录名）启动进程，即使我已使用提供的凭据激活了模拟。

您很可能必须使用 Win32 API 创建自己的“shell”函数。

使用 CreateProcessWithLogonW API，您可以在不同的凭据下创建新进程，并可选择加载用户配置文件信息。

在下面的代码片段中如果替换

• 用户名 - 使用您的用户名
• 域 - 使用您的域或“vbNullString”
• 密码 - 用您的密码
• 参数 4 - 将 0 替换为“LOGON WITH PROFILE”以加载指定的用户配置文件。

请参阅文档CreateProcessWithLogonW API http://msdn.microsoft.com/en-us/library/ms682431(VS.85).aspx了解更多详情。走这条路，您可以完全控制并承担启动应用程序的全部责任。

同样，这只是一个示例，您可能需要稍微尝试一下才能让它执行您想要的操作。

Imports System.Runtime.InteropServices

Public Module modShell

    <StructLayout(LayoutKind.Sequential)> _
    Public Structure STARTUPINFO
        Public cb As Integer
        Public lpReserved As String
        Public lpDesktop As String
        Public lpTitle As String
        Public dwX As Integer
        Public dwY As Integer
        Public dwXSize As Integer
        Public dwYSize As Integer
        Public dwXCountChars As Integer
        Public dwYCountChars As Integer
        Public dwFillAttribute As Integer
        Public dwFlags As Integer
        Public wShowWindow As Short
        Public cbReserved2 As Short
        Public lpReserved2 As Integer
        Public hStdInput As Integer
        Public hStdOutput As Integer
        Public hStdError As Integer
    End Structure

    <StructLayout(LayoutKind.Sequential)> _
    Public Structure PROCESS_INFORMATION
        Public hProcess As IntPtr
        Public hThread As IntPtr
        Public dwProcessId As Integer
        Public dwThreadId As Integer
    End Structure

    Public Declare Unicode Function CreateProcessWithLogonW Lib "Advapi32" (ByVal lpUsername As String, ByVal lpDomain As String, ByVal lpPassword As String, ByVal dwLogonFlags As Int32, ByVal lpApplicationName As String, ByVal lpCommandLine As String, ByVal dwCreationFlags As Int32, ByVal lpEnvironment As IntPtr, ByVal lpCurrentDirectory As String, ByRef si As STARTUPINFO, ByRef pi As PROCESS_INFORMATION) As Integer
    Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As IntPtr) As Integer

    Public Const LOGON_WITH_PROFILE As Int32 = &H1;

    Public Const NORMAL_PRIORITY_CLASS As Int32 = &H20;&

    Public Const STARTF_USESHOWWINDOW As Int32 = &H1;
    Public Const SW_HIDE As Int16 = 0
    Public Const SW_SHOW As Int16 = 5

    Public Function Shell(ByVal strCmdLine As String, ByVal strCurrentDirectory As String) As Boolean

        Dim pi As PROCESS_INFORMATION
        Dim si As New STARTUPINFO

        si.cb = Marshal.SizeOf(si)
        si.dwFlags = STARTF_USESHOWWINDOW
        si.wShowWindow = SW_SHOW

        Dim result As Integer = CreateProcessWithLogonW("username", "domain", "password", 0, vbNullString, strCmdLine, NORMAL_PRIORITY_CLASS, IntPtr.Zero, strCurrentDirectory, si, pi)

        If result <> 0 Then
            Call CloseHandle(pi.hThread)
            Call CloseHandle(pi.hProcess)
        Else
            Return False
        End If

        Return True

    End Function

End Module