Windows 7 中的模拟

Question

我有一个模拟类，到目前为止在 Windows XP 上运行得很好，但是当我尝试在 Windows 7 上使用相同的模拟时，我遇到了问题。据我所知，模拟是有效的，但是当我尝试访问该用户下的文件时，我收到访问被拒绝的错误。还有其他人遇到过这个问题并找到解决方法吗？

公共子 BeginImpersonation()

Const LOGON32_PROVIDER_DEFAULT As Integer = 0
Const LOGON32_LOGON_INTERACTIVE As Integer = 2
Const SecurityImpersonation As Integer = 2

Dim win32ErrorNumber As Integer

_tokenHandle = IntPtr.Zero
_dupeTokenHandle = IntPtr.Zero

If Not LogonUser(_username, _domainname, _password, LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, _tokenHandle) Then
  win32ErrorNumber = System.Runtime.InteropServices.Marshal.GetLastWin32Error()
  Throw New ImpersonationException(win32ErrorNumber, GetErrorMessage(win32ErrorNumber), _username, _domainname)
End If

If Not DuplicateToken(_tokenHandle, SecurityImpersonation, _dupeTokenHandle) Then
  win32ErrorNumber = System.Runtime.InteropServices.Marshal.GetLastWin32Error()

  CloseHandle(_tokenHandle)
  Throw New ImpersonationException(win32ErrorNumber, "Unable to duplicate token!", _username, _domainname)
End If

Dim newId As New System.Security.Principal.WindowsIdentity(_dupeTokenHandle)
_impersonatedUser = newId.Impersonate()

结束子

  Dim aa As fcGlobals.AliasAccount
  'Use Impersonation
  aa = New fcGlobals.AliasAccount("xxxx", "xxxx")
  aa.BeginImpersonation()
  For a = 0 To mPages.Count - 1
    If System.IO.File.Exists(mFileNames(a)) = True Then
      System.IO.File.Delete(mFileNames(a))
    End If
  Next

  aa.EndImpersonation()
  aa.Dispose()