Hvordan du starter en prosess som en annen bruker fra Visual Basic

Sammendrag

Denne artikkelen viser hvordan du starter en prosess ved hjelp av programmering som en annen bruker fra Microsoft Visual Basic. Hvis du vil gjøre dette, kan du bruke LogonUser og Win32-APIene for CreateProcessAsUser på en datamaskin som kjører Microsoft Windows NT 4.0, eller du kan bruke CreateProcessWithLogonW Win32 API på en datamaskin som kjører Microsoft Windows 2000 eller senere. CreateProcessWithLogonW kan ikke kalles fra en prosess under LocalSystem-kontoen.

Mer informasjon

Denne artikkelen inneholder eksempel på Visual Basic-kode som registrerer hvilken versjon av operativsystemet. Deretter brukes tilhørende APIer til å starte en prosess som en annen bruker.

Windows NT 4.0

Hvis du vil bruke LogonUser og CreateProcessAsUser, må du kalle kontoen til brukeren bestemte tillatelser. Hvis du vil bruke LogonUser(), må du kalle kontoen til brukeren tillatelse til følgende: Permission Display Name ------------------------------------------------------------------ SE_TCB_NAME Act as part of the operating system Hvis du vil bruke CreateProcessAsUser(), må du kalle kontoen til brukeren følgende to tillatelser: Permission Display Name ------------------------------------------------------------ SE_ASSIGNPRIMARYTOKEN_NAME Replace a process level token SE_INCREASE_QUOTA_NAME Increase quotas Hvis den kallende brukerkontoen ikke har tillatelse til å "opptre som en del av operativsystemet", LogonUser() API mislykkes og genererer returnerer verdien null. Hvis du kaller Err.LastDllError, får du feilmeldingen 1314. Denne meldingen betyr at en nødvendig tillatelse ikke holdt av klienten. På samme måte, hvis den kallende brukerkontoen ikke har de to tillatelsene til "Erstatt prosessnivåtoken" og "øke kvoter", CreateProcessAsUser() API mislykkes og genererer feil melding 1314.If du starter en interaktiv applikasjon som en annen bruker, må du ha tilgang til den interaktive vindusstasjonen og skrivebordet som heter winsta0\default. Hvis programmet er interaktive, må anroperen til den nødvendige tillatelsen til winsta0\default. Oppkalleren kan kalle bruker helper-funksjonen i Visual Basic eksempelkoden nedenfor etter dette. Du må gi nok tillatelser til brukerkontoen som er angitt i LogonUser() , slik at den interaktive programmet kan starte riktig. Følgende Knowledge Base-artikkel er eksempel på Visual Basic-kode som du kan bruke til å oppdatere tillatelsene på skrivebordet og vindusstasjonen.

hvordan du kan bruke APIer for lavnivåtilgang-kontrollen fra Visual Basic

Windows 2000 og senere

CreateProcessWithLogonW() API ble introdusert i Windows 2000. Et kall til CreateProcessWithLogonW() krever ikke tillatelser som skal gis for den kallende brukerkontoen som den gjør med LogonUser og CreateProcessAsUser APIs.In senere, Bruk CreateProcessWithLogonW() API. Den håndterer tillatelsene som er knyttet til arvede vindusstasjon og skrivebord. I dette scenariet kaller programmet bare bruker helper-funksjonen i følgende eksempel på Visual Basic-koden.

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

Trenger du mer hjelp?

Utvid ferdighetene dine
Utforsk opplæring
Vær først ute med de nye funksjonene
Bli med i Microsoft Insiders

Var denne informasjonen nyttig?

Takk for tilbakemeldingen!

Takk for tilbakemeldingen! Det høres ut som det kan være lurt å sette deg i kontakt med én av våre Office-kundestøtteagenter.

×