Запуск процесса от имени другого пользователя из Visual Basic

В этой статье описывается перенаправление входных данных и выходных данных дочернего процесса, получающего входные данные от стандартного дескриптора входных данных или отправляющего выходные данные в стандартный дескриптор выходных данных.

Исходная версия продукта: Visual Basic
Исходный номер базы знаний: 285879

Итоги

В этой статье показано, как программно запустить процесс в качестве другого пользователя из Microsoft Visual Basic. Для этого можно использовать LogonUser CreateProcessAsUser API Win32 на компьютере под управлением Windows NT 4.0 или использовать CreateProcessWithLogonW API Win32 на компьютере под управлением Windows 2000 или более поздней версии. CreateProcessWithLogonW невозможно вызвать из процесса в учетной записи LocalSystem.

Дополнительная информация

В этой статье содержится пример кода Visual Basic, который обнаруживает версию операционной системы. Затем он использует соответствующие API для запуска процесса в качестве другого пользователя.

Windows NT 4.0

Для использования LogonUser и CreateProcessAsUser, вызываемая учетная запись пользователя должна иметь определенные разрешения.
Для использования LogonUser()вызываемая учетная запись пользователя должна иметь следующее разрешение:

Закон о отображаемом имени SE_TCB_NAME разрешения в составе операционной системы
Для использования CreateProcessAsUser()вызывающая учетная запись пользователя должна иметь следующие два разрешения:

Отображаемое имя разрешения
- SE_ASSIGNPRIMARYTOKEN_NAME Замена маркера уровня процесса
- SE_INCREASE_QUOTA_NAME Увеличение квот

Если вызывающая учетная запись пользователя не имеет разрешения "действовать как часть операционной системы" LogonUser() , API завершается сбоем и создает возвращаемое значение нуля. При вызове Err.LastDllErrorвы получаете сообщение об ошибке 1314. Это сообщение означает, что необходимое разрешение не хранится клиентом. Аналогичным образом, если вызывающая учетная запись пользователя не имеет двух разрешений на "заменить маркер уровня процесса" и "увеличить квоты" CreateProcessAsUser() , API завершается сбоем и создает сообщение об ошибке 1314.

Если вы запускаете интерактивное приложение в качестве другого пользователя, у вас должен быть доступ к интерактивной станции окон и рабочему столу с именем winsta0\default. Если приложение является интерактивным, вызывающий объект должен программно добавить требуемое разрешение для winsta0\default. После этого вызывающий объект может вызвать вспомогательную RunAsUser функцию в примере кода Visual Basic ниже.

Необходимо предоставить достаточно разрешений учетной записи пользователя, указанной в LogonUser() этой учетной записи, чтобы интерактивное приложение было успешно запущено. В следующей статье базы знаний приведен пример кода Visual Basic, который можно использовать для обновления разрешений на окне и на рабочем столе.

Windows 2000 и более поздних версий

API CreateProcessWithLogonW() появился в Windows 2000. Вызов CreateProcessWithLogonW() не требует предоставления разрешений для вызываемой учетной записи пользователя, так как это делается с помощью LogonUser и CreateProcessAsUser API.

В будущем используйте CreateProcessWithLogonW() API. Он обрабатывает разрешения, связанные с унаследованной станцией окон и рабочим столом. В этом сценарии приложение просто вызывает вспомогательную RunAsUser функцию в следующем примере кода Visual Basic.

Option Explicit

Private Const CREATE_DEFAULT_ERROR_MODE = &H4000000

Private Const LOGON_WITH_PROFILE = &H1
Private Const LOGON_NETCREDENTIALS_ONLY = &H2

Private Const LOGON32_LOGON_INTERACTIVE = 2
Private Const LOGON32_PROVIDER_DEFAULT = 0

Private Type STARTUPINFO
    cb As Long
    lpReserved As Long ' !!! must be Long for Unicode string
    lpDesktop As Long ' !!! must be Long for Unicode string
    lpTitle As Long ' !!! must be Long for Unicode string
    dwX As Long
    dwY As Long
    dwXSize As Long
    dwYSize As Long
    dwXCountChars As Long
    dwYCountChars As Long
    dwFillAttribute As Long
    dwFlags As Long
    wShowWindow As Integer
    cbReserved2 As Integer
    lpReserved2 As Long
    hStdInput As Long
    hStdOutput As Long
    hStdError As Long
End Type

Private Type PROCESS_INFORMATION
    hProcess As Long
    hThread As Long
    dwProcessId As Long
    dwThreadId As Long
End Type

' LogonUser() requires that the caller has the following permission
' Permission Display Name
' --------------------------------------------------------------------
' SE_TCB_NAME Act as part of the operating system

' CreateProcessAsUser() requires that the caller has the following permissions
' Permission Display Name
' ---------------------------------------------------------------
' SE_ASSIGNPRIMARYTOKEN_NAME Replace a process level token
' SE_INCREASE_QUOTA_NAME Increase quotas

Private Declare Function LogonUser Lib "advapi32.dll" Alias _"LogonUserA" _(ByVal lpszUsername As String, _ByVal lpszDomain As String, _ByVal lpszPassword As String, _ByVal dwLogonType As Long, _ByVal dwLogonProvider As Long, _phToken As Long) As Long

Private Declare Function CreateProcessAsUser Lib "advapi32.dll" _Alias "CreateProcessAsUserA" _(ByVal hToken As Long, _ByVal lpApplicationName As Long, _ByVal lpCommandLine As String, _ByVal lpProcessAttributes As Long, _ByVal lpThreadAttributes As Long, _ByVal bInheritHandles As Long, _ByVal dwCreationFlags As Long, _ByVal lpEnvironment As Long, _ByVal lpCurrentDirectory As String, _lpStartupInfo As STARTUPINFO, _lpProcessInformation As PROCESS_INFORMATION) As Long

' CreateProcessWithLogonW API is available only on Windows 2000 and later.
Private Declare Function CreateProcessWithLogonW Lib "advapi32.dll" _(ByVal lpUsername As String, _ByVal lpDomain As String, _ByVal lpPassword As String, _ByVal dwLogonFlags As Long, _ByVal lpApplicationName As Long, _ByVal lpCommandLine As String, _ByVal dwCreationFlags As Long, _ByVal lpEnvironment As Long, _ByVal lpCurrentDirectory As String, _ByRef lpStartupInfo As STARTUPINFO, _ByRef lpProcessInformation As PROCESS_INFORMATION) As Long

Private Declare Function CloseHandle Lib "kernel32.dll" _(ByVal hObject As Long) As Long

Private Declare Function SetErrorMode Lib "kernel32.dll" _(ByVal uMode As Long) As Long

Private Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type

' Version Checking APIs
Private Declare Function GetVersionExA Lib "kernel32.dll" _(lpVersionInformation As OSVERSIONINFO) As Integer

Private Const VER_PLATFORM_WIN32_NT = &H2

'********************************************************************' RunAsUser for Windows 2000 and Later
'********************************************************************
Public Function W2KRunAsUser(ByVal UserName As String, _ByVal Password As String, _ByVal DomainName As String, _ByVal CommandLine As String, _ByVal CurrentDirectory As String) As Long

    Dim si As STARTUPINFO
    Dim pi As PROCESS_INFORMATION
    Dim wUser As String
    Dim wDomain As String
    Dim wPassword As String
    Dim wCommandLine As String
    Dim wCurrentDir As String

    Dim Result As Long

    si.cb = Len(si)

    wUser = StrConv(UserName + Chr$(0), vbUnicode)
    wDomain = StrConv(DomainName + Chr$(0), vbUnicode)
    wPassword = StrConv(Password + Chr$(0), vbUnicode)
    wCommandLine = StrConv(CommandLine + Chr$(0), vbUnicode)
    wCurrentDir = StrConv(CurrentDirectory + Chr$(0), vbUnicode)

    Result = CreateProcessWithLogonW(wUser, wDomain, wPassword, _LOGON_WITH_PROFILE, 0&, wCommandLine, _CREATE_DEFAULT_ERROR_MODE, 0&, wCurrentDir, si, pi)' CreateProcessWithLogonW() does not
    If Result <> 0 Then
        CloseHandle pi.hThread
        CloseHandle pi.hProcess
        W2KRunAsUser = 0
    Else
        W2KRunAsUser = Err.LastDllError
        MsgBox "CreateProcessWithLogonW() failed with error " & Err.LastDllError, vbExclamation
    End If

End Function

'********************************************************************' RunAsUser for Windows NT 4.0
'********************************************************************
Public Function NT4RunAsUser(ByVal UserName As String, _ByVal Password As String, _ByVal DomainName As String, _ByVal CommandLine As String, _ByVal CurrentDirectory As String) As Long
    Dim Result As Long
    Dim hToken As Long
    Dim si As STARTUPINFO
    Dim pi As PROCESS_INFORMATION

    Result = LogonUser(UserName, DomainName, Password, LOGON32_LOGON_INTERACTIVE, _
    LOGON32_PROVIDER_DEFAULT, hToken)
    If Result = 0 Then
        NT4RunAsUser = Err.LastDllError
        ' LogonUser will fail with 1314 error code, if the user account associated
        ' with the calling security context does not have
        ' "Act as part of the operating system" permission
        MsgBox "LogonUser() failed with error " & Err.LastDllError, vbExclamation
        Exit Function
    End If

    si.cb = Len(si)
    Result = CreateProcessAsUser(hToken, 0&, CommandLine, 0&, 0&, False, _
    CREATE_DEFAULT_ERROR_MODE, _
    0&, CurrentDirectory, si, pi)
    If Result = 0 Then
        NT4RunAsUser = Err.LastDllError
        ' CreateProcessAsUser will fail with 1314 error code, if the user
        ' account associated with the calling security context does not have
        ' the following two permissions
        ' "Replace a process level token"
        ' "Increase Quotoas"
        MsgBox "CreateProcessAsUser() failed with error " & Err.LastDllError, vbExclamation
        CloseHandle hToken
        Exit Function
    End If

    CloseHandle hToken
    CloseHandle pi.hThread
    CloseHandle pi.hProcess
    NT4RunAsUser = 0

End Function

Public Function RunAsUser(ByVal UserName As String, _ByVal Password As String, _ByVal DomainName As String, _ByVal CommandLine As String, _ByVal CurrentDirectory As String) As Long

    Dim w2kOrAbove As Boolean
    Dim osinfo As OSVERSIONINFO
    Dim Result As Long
    Dim uErrorMode As Long

    ' Determine if system is Windows 2000 or later
    osinfo.dwOSVersionInfoSize = Len(osinfo)
    osinfo.szCSDVersion = Space$(128)
    GetVersionExA osinfo
    w2kOrAbove = _
    (osinfo.dwPlatformId = VER_PLATFORM_WIN32_NT And _
    osinfo.dwMajorVersion >= 5)
    If (w2kOrAbove) Then
    Result = W2KRunAsUser(UserName, Password, DomainName, _
    CommandLine, CurrentDirectory)
    Else
    Result = NT4RunAsUser(UserName, Password, DomainName, _
    CommandLine, CurrentDirectory)
    End If
    RunAsUser = Result
End Function

Обратная связь

Были ли сведения на этой странице полезными?

Last updated on 2024-12-14