[DllImport("advapi32.dll", SetLastError=true)]
static extern TODO ImpersonateLoggedOnUser(TODO);
Declare Function ImpersonateLoggedOnUser Lib "advapi32.dll" (ByVal hToken As Integer) As Integer
None.
Don't forget to call RevertToSelf when done.
Dim lngLogonType, lngLogonProvider, lngTokenHandle As Integer
Dim blnResult As Boolean
lngLogonType = LOGON32_LOGON_INTERACTIVE
lngLogonProvider = LOGON32_PROVIDER_DEFAULT
blnResult = RevertToSelf()
blnResult = LogonUser(strUser, strDomain, strPassword, _
lngLogonType, lngLogonProvider, _
lngTokenHandle)
If blnResult Then
blnResult = ImpersonateLoggedOnUser(lngTokenHandle)
CloseHandle(lngTokenHandle)
Else
MsgBox("Error logging on")
End If
Do you know one? Please contribute it!