Copied From webservices ng: WebService w/Custom Principal

[Mythran]

We have a class that Implements IPrincipal
(System.Securit y.Principal.IPr incipal). We have a business logic class
library assembly that checks the Principal object for role information to
see if the currently logged in user has access to specific roles...

<snip>
Public Class MyBusinessLogic
Inherits ServicedCompone nt

<AutoComplete() > _
Public Function Fetch() As Schema.MyTypedD ataSet
Dim p As Principal = DirectCast( _
Threading.Threa d.CurrentThread .CurrentPrincip al, _
Principal _
)

If Not p.IsInRole("My Role")
Throw New SecurityExcepti on("Missing access to My Role.")
End If

...
End Function
End Class
</snip>
Now we are trying to implement a web service that calls the Business Logic
class methods, but it fails because in the web service, the
Threading.Threa d.CurrentThread .CurrentPrincip al object is not the same as in
the web application doing the calling. How can we get this Principal to be
set in the Current Thread of the Web Service?

Note: The Principal object has a property called Identity which is of type
IIdentity, which cannot be serialized.

Thanks in advance,
Mythran