vbusing impersonation in vb.net

[h]

Hello,

I am still struggling with impersonation in vb.net. I have a service that
logs on to exchange but I get different results when using the "log on as"
feature on the service as opposed to the impersonation routine. I am very
curious about how that is possible. It should yield the same results

Has anyone else used impersonation in a vb.net service?

The routine i am using is from an article on msdn (if i recall correctly)
and is printed at the end of this message. I run this at the very start of
the service, and do the Undo() function when the service ends so that ALL
the code in the service is supposed to run as the given user.

Thanks for any feedback,
Rune
Public Function impersonateVali dUser(ByVal userName As String, ByVal
domain As String, ByVal password As String) As Boolean

Dim tempWindowsIden tity As WindowsIdentity
Dim token As IntPtr = IntPtr.Zero
Dim tokenDuplicate As IntPtr = IntPtr.Zero
impersonateVali dUser = False

If RevertToSelf() Then
If LogonUserA(user Name, domain, password,
LOGON32_LOGON_I NTERACTIVE, LOGON32_PROVIDE R_DEFAULT, token) <> 0 Then
If DuplicateToken( token, 2, tokenDuplicate) <> 0 Then
tempWindowsIden tity = New
WindowsIdentity (tokenDuplicate )
impersonationCo ntext = tempWindowsIden tity.Impersonat e()
If Not impersonationCo ntext Is Nothing Then
impersonateVali dUser = True
End If
End If
End If
End If
If Not tokenDuplicate. Equals(IntPtr.Z ero) Then
CloseHandle(tok enDuplicate)
End If
If Not token.Equals(In tPtr.Zero) Then
CloseHandle(tok en)
End If
End Function