User-1352156089 posted
Hi Ackerly,
thanks for your feedback.
This has been solved. I ll share the code for future reference since there is really scattered documentation about how to implement quickly role management with WebForms.
In IdentityModels.vb I had to modify the code to take Integer as primary key:
Imports System
Imports System.Threading.Tasks
Imports System.Security.Claims
Imports Microsoft.AspNet.Identity
Imports Microsoft.AspNet.Identity.EntityFramework
Imports Microsoft.AspNet.Identity.Owin
Imports Microsoft.Owin.Security
Imports Microsoft.Owin
Public Class ApplicationUser
Inherits IdentityUser(Of Integer, CustomUserLogin, CustomUserRole, CustomUserClaim)
Public Async Function GenerateUserIdentityAsync(ByVal manager As UserManager(Of ApplicationUser, Integer)) As Task(Of ClaimsIdentity)
Dim userIdentity = Await manager.CreateIdentityAsync(Me, DefaultAuthenticationTypes.ApplicationCookie)
Return userIdentity
End Function
End Class
Public Class ApplicationDbContext
Inherits IdentityDbContext(Of ApplicationUser, CustomRole, Integer, CustomUserLogin, CustomUserRole, CustomUserClaim)
Public Sub New()
MyBase.New("MyConnectionString")
End Sub
Public Shared Function Create() As ApplicationDbContext
Return New ApplicationDbContext()
End Function
End Class
Public Class ApplicationRoleManager
Inherits RoleManager(Of CustomRole, Integer)
Public Sub New(ByVal CustomRoleStore As IRoleStore(Of CustomRole, Integer))
MyBase.New(CustomRoleStore)
End Sub
Public Shared Function Create(ByVal options As IdentityFactoryOptions(Of ApplicationRoleManager), ByVal context As IOwinContext) As ApplicationRoleManager
Return New ApplicationRoleManager(New RoleStore(Of CustomRole, Integer, CustomUserRole)(context.[Get](Of ApplicationDbContext)()))
End Function
End Class
Public Class CustomUserStore
Inherits UserStore(Of ApplicationUser, CustomRole, Integer, CustomUserLogin, CustomUserRole, CustomUserClaim)
Implements IUserStore(Of ApplicationUser, Integer), IDisposable
Public Sub New()
Me.New(New ApplicationDbContext())
MyBase.DisposeContext = True
End Sub
Public Sub New(ByVal context As ApplicationDbContext)
MyBase.New(context)
End Sub
End Class
Public Class CustomRoleStore
Inherits RoleStore(Of CustomRole, Integer, CustomUserRole)
Implements IQueryableRoleStore(Of CustomRole, Integer), IRoleStore(Of CustomRole, Integer), IDisposable
Public Sub New()
Me.New(New ApplicationDbContext())
MyBase.DisposeContext = True
End Sub
Public Sub New(ByVal context As ApplicationDbContext)
MyBase.New(context)
End Sub
End Class
Public Class CustomUserRole
Inherits IdentityUserRole(Of Integer)
End Class
Public Class CustomUserClaim
Inherits IdentityUserClaim(Of Integer)
End Class
Public Class CustomUserLogin
Inherits IdentityUserLogin(Of Integer)
End Class
Public Class CustomRole
Inherits IdentityRole(Of Integer, CustomUserRole)
Public Sub New()
End Sub
Public Sub New(ByVal Name As String)
Name = Name
End Sub
End Class
In Startup.Auth.vb I added:
app.CreatePerOwinContext(Of ApplicationRoleManager)(AddressOf ApplicationRoleManager.Create)
In IdentityConfig.vb I changed the code as follows:
Imports System.Security.Claims
Imports System.Threading.Tasks
Imports Microsoft.AspNet.Identity
Imports Microsoft.AspNet.Identity.EntityFramework
Imports Microsoft.AspNet.Identity.Owin
Imports Microsoft.Owin
Imports Microsoft.Owin.Security
Public Class EmailService
Implements IIdentityMessageService
Public Function SendAsync(message As IdentityMessage) As Task Implements IIdentityMessageService.SendAsync
' Plug in your email service here to send an email.
Return Task.FromResult(0)
End Function
End Class
Public Class SmsService
Implements IIdentityMessageService
Public Function SendAsync(message As IdentityMessage) As Task Implements IIdentityMessageService.SendAsync
' Plug in your SMS service here to send a text message.
Return Task.FromResult(0)
End Function
End Class
' Configure the application user manager used in this application. UserManager is defined in ASP.NET Identity and is used by the application.
Public Class ApplicationUserManager
Inherits UserManager(Of ApplicationUser, Integer)
Public Sub New(ByVal store As IUserStore(Of ApplicationUser, Integer))
MyBase.New(store)
End Sub
Public Shared Function Create(ByVal options As IdentityFactoryOptions(Of ApplicationUserManager), ByVal context As IOwinContext) As ApplicationUserManager
Dim manager = New ApplicationUserManager(New CustomUserStore(context.[Get](Of ApplicationDbContext)()))
manager.UserValidator = New UserValidator(Of ApplicationUser, Integer)(manager) With {
.AllowOnlyAlphanumericUserNames = False,
.RequireUniqueEmail = False
}
manager.PasswordValidator = New PasswordValidator With {
.RequiredLength = 6,
.RequireNonLetterOrDigit = True,
.RequireDigit = True,
.RequireLowercase = True,
.RequireUppercase = True
}
manager.RegisterTwoFactorProvider("PhoneCode", New PhoneNumberTokenProvider(Of ApplicationUser, Integer) With {
.MessageFormat = "Your security code is: {0}"
})
manager.RegisterTwoFactorProvider("EmailCode", New EmailTokenProvider(Of ApplicationUser, Integer) With {
.Subject = "Security Code",
.BodyFormat = "Your security code is: {0}"
})
manager.EmailService = New EmailService()
manager.SmsService = New SmsService()
Dim dataProtectionProvider = options.DataProtectionProvider
If dataProtectionProvider IsNot Nothing Then
manager.UserTokenProvider = New DataProtectorTokenProvider(Of ApplicationUser, Integer)(dataProtectionProvider.Create("ASP.NET Identity"))
End If
Return manager
End Function
End Class
Public Class ApplicationSignInManager
Inherits SignInManager(Of ApplicationUser, Integer)
Public Sub New(userManager As ApplicationUserManager, authenticationManager As IAuthenticationManager)
MyBase.New(userManager, authenticationManager)
End Sub
Public Overrides Function CreateUserIdentityAsync(user As ApplicationUser) As Task(Of ClaimsIdentity)
Return user.GenerateUserIdentityAsync(DirectCast(UserManager, ApplicationUserManager))
End Function
Public Shared Function Create(options As IdentityFactoryOptions(Of ApplicationSignInManager), context As IOwinContext) As ApplicationSignInManager
Return New ApplicationSignInManager(context.GetUserManager(Of ApplicationUserManager)(), context.Authentication)
End Function
End Class
In Startup.vb I changed the code as follows:
Imports Microsoft.AspNet.Identity
Imports Microsoft.AspNet.Identity.EntityFramework
Imports Microsoft.Owin
Imports Owin
Imports System.Security.Claims
<Assembly: OwinStartupAttribute(GetType(Startup))>
Partial Public Class Startup
Public Sub Configuration(app As IAppBuilder)
ConfigureAuth(app)
CreateRolesandUsers()
End Sub
Private Sub CreateRolesandUsers()
Dim context As ApplicationDbContext = New ApplicationDbContext()
Dim roleManager = New RoleManager(Of CustomRole, Integer)(New RoleStore(Of CustomRole, Integer, CustomUserRole)(context))
Dim UserManager = New UserManager(Of ApplicationUser, Integer)(New UserStore(Of ApplicationUser, CustomRole, Integer, CustomUserLogin, CustomUserRole, CustomUserClaim)(context))
If Not roleManager.RoleExists("Administrator") Then
Dim role = New CustomRole()
role.Name = "Administrator"
roleManager.Create(role)
Dim user = New ApplicationUser()
user.UserName = "xxxxx"
user.Email = "xxxxxxxxxx@xxxxx.com"
Dim userPWD As String = "Testing@DRFFG"
Dim chkUser = UserManager.Create(user, userPWD)
If chkUser.Succeeded Then
Dim result1 = UserManager.AddToRole(user.Id, "Administrator")
End If
End If
If Not roleManager.RoleExists("User") Then
Dim role = New CustomRole()
role.Name = "User"
roleManager.Create(role)
End If
End Sub
End Class
Thanks
