Como iniciar um processo como outro usuário a partir do Visual Basic

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 285879
Sumário
Este artigo mostra como programaticamente iniciar um processo como outro usuário do Visual Basic. Para fazer isso, você pode usar o LogonUser e APIs do Win32 CreateProcessAsUser em um computador que esteja executando o Microsoft Windows NT 4.0, ou você pode usar a API do Win32 CreateProcessWithLogonW em um computador que esteja executando o Microsoft Windows 2000 ou posterior. CreateProcessWithLogonW não pode ser chamado de um processo sob a conta do sistema local.
Mais Informações
Este artigo contém código de exemplo do Visual Basic que detecta a versão do sistema operacional. Depois ele usa as APIs correspondentes para iniciar um processo como outro usuário.

Windows NT 4.0

Para usar LogonUser e CreateProcessAsUser , a conta de usuário chamada deve ter permissões específicas.

Para usar LogonUser() , a conta de usuário chamada deve ter a seguinte permissão:
   Permission                     Display Name   ------------------------------------------------------------------   SE_TCB_NAME                    Act as part of the operating system				
para usar CreateProcessAsUser() , a conta de usuário chamada deve ter as duas seguintes permissões:
   Permission                     Display Name   ------------------------------------------------------------   SE_ASSIGNPRIMARYTOKEN_NAME     Replace a process level token   SE_INCREASE_QUOTA_NAME         Increase quotas				
se a conta de usuário chamada não tiver a permissão para "funcionar como parte do sistema operacional", LogonUser() API falha e gera um valor de retorno de zero. Se você chamar Err.LastDllError , você receberá a mensagem de erro 1314. Essa mensagem significa que uma permissão necessária não é mantido pelo cliente. Da mesma forma, se a conta de usuário chamada não tiver as duas permissões para "substituir um token no nível de processo" e "Aumentar cotas", CreateProcessAsUser() API falhar e gera a mensagem de erro 1314.

Se você iniciar um aplicativo interativo como outro usuário, você deve ter acesso à área de trabalho é denominada winsta0\default e estação de janela interativa. Se o aplicativo é interativo, o chamador precisa adicionar por programação a permissão necessária a winsta0\default. Após isso, o chamador pode chamar a função de auxiliar RunAsUser no código do Visual Basic de exemplo abaixo.

Você deve conceder suficiente permissões para a conta de usuário que é especificada no LogonUser() para que o aplicativo interativo possa iniciar com êxito. O seguinte artigo do Knowledge Base tem código de exemplo do Visual Basic que você pode usar para atualizar as permissões em uma estação de janela e a área de trabalho.

316440Como usar o controle de acesso Low-Level APIs a partir do Visual Basic

Windows 2000 e posterior

CreateProcessWithLogonW() API foi introduzida no Windows 2000. Uma chamada para CreateProcessWithLogonW() não requer permissões para ser concedidas para a conta de usuário chamada, como acontece com o LogonUser e CreateProcessAsUser APIs.

No futuro, use CreateProcessWithLogonW() API. Ele lida com as permissões que estão associadas com a estação de janela herdadas e área de trabalho. Nesse cenário, o aplicativo simplesmente chama a função de auxiliar RunAsUser no código do Visual Basic de exemplo a seguir.
Option ExplicitPrivate Const CREATE_DEFAULT_ERROR_MODE = &H4000000Private Const LOGON_WITH_PROFILE = &H1Private Const LOGON_NETCREDENTIALS_ONLY = &H2Private Const LOGON32_LOGON_INTERACTIVE = 2Private 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 LongEnd TypePrivate Type PROCESS_INFORMATION    hProcess As Long    hThread As Long    dwProcessId As Long    dwThreadId As LongEnd 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 LongPrivate 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 * 128End Type                             ' Version Checking APIsPrivate Declare Function GetVersionExA Lib "kernel32.dll" _    (lpVersionInformation As OSVERSIONINFO) As IntegerPrivate 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 IfEnd 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 LongDim Result As LongDim hToken As LongDim si As STARTUPINFODim 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 = 0End FunctionPublic 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 = ResultEnd Function				

Propriedades

ID do Artigo: 285879 - Última Revisão: 11/21/2006 15:36:03 - Revisão: 6.3

Interface de Programação de Aplicativos do Microsoft Win32

  • kbmt kbapi kbhowto kbkernbase kbsecurity KB285879 KbMtpt
Comentários