Allen works as a Software Developer for ABC Research Center.

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();