VB.NET 使用其他用户启动程序

Imports System.Runtime.InteropServices
Imports System.Text

Public Class RunAs
    Private Const LOGON_WITH_PROFILE = 1
    Private Const LOGON_NETCREDENTIALS_ONLY = 2
    Private Const CREATE_DEFAULT_ERROR_MODE = &H4000000
    Private Const CREATE_NEW_CONSOLE = &H10
    Private Const CREATE_NEW_PROCESS_GROUP = &H200
    Private Const CREATE_SEPARATE_WOW_VDM = &H800
    Private Const CREATE_SUSPENDED = &H4
    Private Const CREATE_UNICODE_ENVIRONMENT = &H400
    Private Const ABOVE_NORMAL_PRIORITY_CLASS = &H8000&
    Private Const BELOW_NORMAL_PRIORITY_CLASS = &H4000&
    Private Const HIGH_PRIORITY_CLASS = &H80&
    Private Const IDLE_PRIORITY_CLASS = &H40&
    Private Const NORMAL_PRIORITY_CLASS = &H20&
    Private Const REALTIME_PRIORITY_CLASS = &H100&

    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)> _
    Private 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, CharSet:=CharSet.Unicode)> _
    Private Structure PROCESS_INFORMATION
        Public hProcess As IntPtr
        Public hThread As IntPtr
        Public dwProcessId As Integer
        Public dwThreadId As Integer
    End Structure

    <DllImport("Advapi32", _
        SetLastError:=True, _
        CharSet:=CharSet.Unicode, _
        EntryPoint:="CreateProcessWithLogonW", _
        CallingConvention:=CallingConvention.StdCall)> _
    Private Shared Function CreateProcessWithLogon( _
         ByVal lpUsername As String, _
         ByVal lpDomain As String, _
         ByVal lpPassword As String, _
         ByVal dwLogonFlags As Integer, _
         ByVal lpApplicationName As String, _
         ByVal lpCommandLine As String, _
         ByVal dwCreationFlags As UInteger, _
         ByVal lpEnvironment As Integer, _
         ByVal lpCurrentDirectory As String, _
         ByRef lpStartupInfo As STARTUPINFO, _
         <Out()> ByRef lpProcessInfo As PROCESS_INFORMATION) As Boolean
    End Function

    <DllImport("kernel32.dll", _
        SetLastError:=True, _
        CharSet:=CharSet.Ansi)> _
    Private Shared Function CloseHandle(ByVal handle As Integer) As Boolean

    End Function

    Public Shared Sub BootUpToMcad(ByVal strExeFilepath As String)
        Try
            'CommandLine
            Dim strCommandLine As String = Environment.CommandLine

            '
            If strCommandLine <> "" Then
                strCommandLine = " " & strCommandLine
            End If

            Dim lResult As Boolean
            Dim StartInfo As STARTUPINFO = New STARTUPINFO
            Dim ProcessInfo As PROCESS_INFORMATION = New PROCESS_INFORMATION

            StartInfo.cb = Marshal.SizeOf(StartInfo)
            StartInfo.dwFlags = 0
            lResult = CreateProcessWithLogon("UserAccount", "", "UserPassword", _
                        LOGON_WITH_PROFILE, strExeFilepath, strCommandLine, _
                        CREATE_DEFAULT_ERROR_MODE Or CREATE_NEW_CONSOLE Or CREATE_NEW_PROCESS_GROUP, _
                        0, Nothing, StartInfo, ProcessInfo)

            If (Not lResult) Then
                Throw New System.ComponentModel.Win32Exception()
            Else
                CloseHandle(ProcessInfo.hThread)
                CloseHandle(ProcessInfo.hProcess)
            End If
        Catch ex As Exception
            Throw ex
        End Try
    End Sub
End Class