Запустите новый процесс как другой пользователь в vb.net
в настоящее время я использую доморощенный метод для запуска процесса в качестве другого пользователя в Vista, и я не могу избавиться от ощущения, что это хак-иш и меньше, чем идеально (в дополнение к тому, что он выводит UAC, сбой моего приложения с исключением безопасности и заставляет меня отключить UAC вообще). Мой процесс состоит из двух проектов (так что два EXE-файла) - " интерфейс "и" запуск заглушки " - и вот процесс:
- пользователь имеет ярлык, который запускает "интерфейс.исполняемый блокнот.EXE-файл"
- интерфейс.exe имеет форму, которая запрашивает учетные данные, которые они хотели бы использовать
- Interace.exe использует ProcessStartInfo для создания экземпляра LaunchStub.exe (LS) как новый пользователь
- LS использует ProcessStartInfo (с shellexecute равным true) для запуска запрошенного файла, и поскольку он уже запущен как запрошенный пользователь, так и новый процесс.
причина, по которой у меня есть двухэтапный процесс, заключается в том, что я хочу, чтобы пользователи могли щелкните правой кнопкой мыши на любом файле, для которого ОС имеет действие по умолчанию (.ИСПОЛНЯЕМЫЙ. ,язык SQL. ,MSC и т. д.) и запустите его, а ProcessStartInfo поддерживает только это с включенным" UseShellExecute", но этот переключатель запрещает мне использовать новые учетные данные, поэтому я могу делать только по одному за раз.
Это вызывает несколько проблем-во-первых, пользователь должен уже существовать на компьютере, то есть они должны были войти локально раньше. Если для этого пользователя нет локального профиля, запрашиваемое приложение иногда запускается, но я получите исключения реестра и профиля, потому что приложение ожидает, что вещи еще не существуют (например, улей HKCU в реестре, которого у пользователя нет, потому что они никогда не входили в систему).
Я знаю, что должен иметь возможность просто "повысить" права моего приложения до пользователя, которого они запрашивают, запустить мой новый процесс, а затем отменить повышение, но я не могу найти хороший образец кода для этого, и я не уверен, что он позволит работать как совершенно другой пользователь. В этом есть смысл? Я просто не могу избавиться от чувства, что есть лучший способ сделать это.
обновление: я только что пытался какой-то код олицетворения я нашел в интернете, но безрезультатно. При использовании в сочетании с ProcessStartInfo он по-прежнему запускает процессы, используя мой текущий логин, а не тот, который я предоставил, хотя я активировал олицетворение с помощью предоставленных учетных данных.
4 ответов
скорее всего, вам нужно создать свою собственную функцию "оболочки" с помощью Win32 API.
С помощью API CreateProcessWithLogonW вы можете создавать новые процессы под разными учетными данными и при необходимости загружать информацию профиля пользователя.
в приведенном ниже фрагменте кода, если вы замените
- username-с вашим именем пользователя
- домен - с вашим доменом или "vbNullString"
- пароль - Ваш пароль 4 - замените 0 на "вход с профилем", чтобы загрузить указанный профиль пользователей.
см. документацию к CreateProcessWithLogonW API для дальнейшей конкретики. Идти по этому пути, вы имеете полный контроль и полную ответственность за запуск приложения.
опять же, это всего лишь образец, и вам, возможно, придется немного поиграть с ним, чтобы заставить его делать то, что вы хотите.
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
вы можете попробовать запустить runas из вашего приложения. Некоторые примеры и опции здесь.
попробуйте этот модуль:
Module Impersonation
#Region "API Structures"
<StructLayout(LayoutKind.Sequential)> _
Public Structure PROCESS_INFORMATION
Dim hProcess As System.IntPtr
Dim hThread As System.IntPtr
Dim dwProcessId As Integer
Dim dwThreadId As Integer
End Structure
<StructLayout(LayoutKind.Sequential)> _
Public Structure STARTUPINFO
Dim cb As Integer
Dim lpReserved As System.IntPtr
Dim lpDesktop As System.IntPtr
Dim lpTitle As System.IntPtr
Dim dwX As Integer
Dim dwY As Integer
Dim dwXSize As Integer
Dim dwYSize As Integer
Dim dwXCountChars As Integer
Dim dwYCountChars As Integer
Dim dwFillAttribute As Integer
Dim dwFlags As Integer
Dim wShowWindow As Short
Dim cbReserved2 As Short
Dim lpReserved2 As System.IntPtr
Dim hStdInput As System.IntPtr
Dim hStdOutput As System.IntPtr
Dim hStdError As System.IntPtr
End Structure
#End Region
#Region "API Constants"
Private Const LOGON_NETCREDENTIALS_ONLY As Integer = &H2
Private Const NORMAL_PRIORITY_CLASS As Integer = &H20
Private Const CREATE_DEFAULT_ERROR_MODE As Integer = &H4000000
Private Const CREATE_NEW_CONSOLE As Integer = &H10
Private Const CREATE_NEW_PROCESS_GROUP As Integer = &H200
Private Const LOGON_WITH_PROFILE As Integer = &H1
#End Region
#Region "API Functions"
Private Declare Unicode Function CreateProcessWithLogon Lib "Advapi32" Alias "CreateProcessWithLogonW" _
(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 Integer, _
ByVal lpEnvironment As System.IntPtr, _
ByVal lpCurrentDirectory As System.IntPtr, _
ByRef lpStartupInfo As STARTUPINFO, _
ByRef lpProcessInfo As PROCESS_INFORMATION) As Integer
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As System.IntPtr) As Integer
#End Region
Public Sub RunProgram(ByVal UserName As String, ByVal Password As String, ByVal Domain As String, ByVal Application As String, ByVal CommandLine As String)
Dim siStartup As STARTUPINFO
Dim piProcess As PROCESS_INFORMATION
Dim intReturn As Integer
If CommandLine Is Nothing OrElse CommandLine = "" Then CommandLine = String.Empty
siStartup.cb = Marshal.SizeOf(siStartup)
siStartup.dwFlags = 0
intReturn = CreateProcessWithLogon(UserName, Domain, Password, LOGON_WITH_PROFILE, Application, CommandLine, _
NORMAL_PRIORITY_CLASS Or CREATE_DEFAULT_ERROR_MODE Or CREATE_NEW_CONSOLE Or CREATE_NEW_PROCESS_GROUP, _
IntPtr.Zero, IntPtr.Zero, siStartup, piProcess)
If intReturn = 0 Then
Throw New System.ComponentModel.Win32Exception(Marshal.GetLastWin32Error())
End If
CloseHandle(piProcess.hProcess)
CloseHandle(piProcess.hThread)
End Sub
End Module
используйте Runprogram (), чтобы запустить программу с user/pw y like. Программа означает то .только exe, параметры ar, записанные в"commandline"
Если вы хотите запустить приложение с другими учетными данными, чем текущий запущенный процесс, вы можете использовать .Net процесс класса.
this.Process = new Process();
this.Process.StartInfo.Arguments = "Arguments";
this.Process.StartInfo.FileName = "C:\your.exe";
this.Process.StartInfo.UserName = "UserName";
string password = "some password";
this.Process.StartInfo.Password.Clear();
foreach (char c in password)
{
this.Process.StartInfo.Password.AppendChar(c);
}
//allow the process to raise events
this.Process.EnableRaisingEvents = true;
this.Process.StartInfo.ErrorDialog = false;
//Method for handling the exit event
this.Process.Exited += new EventHandler(ApplicationProcess_Exited);
//Set the application directory as the current working directory
Environment.CurrentDirectory = System.IO.Directory.GetParent("C:\").ToString();
if (this.Process.Start())
{
// Do something on start
}