Allen works as a Software Developer for ABC Research Center. This research center has its subsidiaries in different cities. Allen wants to retrieve a Soil Test Report for the Geological Survey Department. He wants the test report to be available to all the members of the department over the Internet. He creates an XML Web service named SampleReport. SampleReport contains a Web method named SoilTestDetails that requires additional security. Allen decides to use generic rolebased security to secure the SoilTestDetails method from unauthorized users.

Dim GenIdentity As GenericIdentity = New GenericIdentity("Generic", "Custom") Dim GesRoles() As String= {"GeoSurvey"}
Dim GeoPrincipal As GenericPrincipal = New GenericPrincipal(GenIdentity, GeoRoles) Thread.CurrentPrincipal = GeoPrincipal

Dim GeoIdentity As IIdentity = New GenericIdentity("Generic", "GeoSurvey")
Dim GeoPrincipal As IPrincipal = New WindowsPrincipal((WindowsIdentity) GeoIdentity) Thread.CurrentPrincipal = GeoPrincipal

Dim GeoIdentity As IIdentity = New GenericIdentity("Generic", "Custom") Dim WinGeoIdentity As WindowsIdentity = (WindowsIdentity) GeoIdentity Dim GeoRoles() As String = {"GeoSurvey"}
Dim GenGeoPrincipal As GenericPrincipal = New GenericPrincipal(WinGeoIdentity, GeoRoles) WindowsIdentity.Impersonate(WinGeoIdentity.Token) 

Dim MyGenericIdentity As System.Security.Principal.IIdentity = New GenericIdentity("Generic", "Custom")
Dim GeoRoles() As String = {"GeoSurvey"}
GenericPrincipal GenGeoPrincipal = new GenericPrincipal(MyGenericIdentity, GeoRoles); MyGenericIdentity = WindowsIdentity.GetCurrent();