Running a section of code under a specific account

[Jake]

Hi all

I’m trying to write a file to a different sever on the same domain then the server hosting the site, but the IIS user does not have access to the other server. I thought I would use impersonation to force the specific code to impersonate a user that does have the necessary permission with the code bellow. Unfortunately This code results in an "Unable to Logon" error as the System.Security.Principal.WindowsIdentity constructor expects a Windows account token and I been unable to determine how to do this Any ideas on how to achieve this?

Private Sub PerformTask(
Dim sUsers As String = "
Dim objImpersonatedIdentity As New System.Security.Principal.WindowsIdentity("Bill"
Dim MyImpersonation As System.Security.Principal.WindowsImpersonationCont ext = objImpersonatedIdentity.Impersonat
sUsers = objImpersonatedIdentity.Name(
MyImpersonation.Undo(
lblOutPut.Text = sUser
End Su

Thanks in advanc

Jak

[Martin Dechev]

Hi, Jake,

Try the code examples in this article:

http://support.microsoft.com/?kbid=306158

Greetings
Martin
"Jake" <an*******@discussions.microsoft.com> wrote in message
news:09**********************************@microsof t.com...

Hi all,

I’m trying to write a file to a different sever on the same domain then the server hosting the site, but the IIS user does not have access to the
other server. I thought I would use impersonation to force the specific
code to impersonate a user that does have the necessary permission with the
code bellow. Unfortunately This code results in an "Unable to Logon" error
as the System.Security.Principal.WindowsIdentity constructor expects a
Windows account token and I been unable to determine how to do this Any
ideas on how to achieve this?
Private Sub PerformTask()
Dim sUsers As String = ""
Dim objImpersonatedIdentity As New System.Security.Principal.WindowsIdentity("Bill") Dim MyImpersonation As System.Security.Principal.WindowsImpersonationCont ext =
objImpersonatedIdentity.Impersonate sUsers = objImpersonatedIdentity.Name()
MyImpersonation.Undo()
lblOutPut.Text = sUsers
End Sub

Thanks in advance

Jake