Hi I am using this code snippet to create new user.  But it does not create anything, i get no errors. dont really know what i am doing wrong.

 

 

 

 

 

 

Dim userCreateStatus As New UserCreateStatus


Dim objNewUser As New DotNetNuke.Entities.Users.UserInfo
objNewUser.Profile.InitialiseProfile(Me.PortalSettings.PortalId)
objNewUser.PortalID = Me.PortalSettings.PortalId
objNewUser.PortalID = PortalId
objNewUser.Email = username & "@minasu.com"
objNewUser.Username = "al"
objNewUser.DisplayName = String.Concat(username, " ", Password)
objNewUser.Membership.Password = "osman"
objNewUser.Membership.Approved = True
objNewUser.Profile.PreferredLocale = Me.PortalSettings.DefaultLanguage
objNewUser.Profile.TimeZone = Me.PortalSettings.TimeZoneOffset
Response.Write(Me.PortalSettings.PortalId)

'userCreateStatus = UserController.CreateUser(objNewUser)
Dim objStatus As UserCreateStatus = DotNetNuke.Entities.Users.UserController.CreateUser(objNewUser)
'Response.Write(userCreateStatus.ToString())

' set-up the arguments for the status of the user creation
Dim args As DotNetNuke.Entities.Modules.UserUserControlBase.UserCreatedEventArgs
If objStatus = UserCreateStatus.Success Then
args = New _
DotNetNuke.Entities.Modules.UserUserControlBase.UserCreatedEventArgs(Me.User)
args.Notify = True
Else ' registration error
args = New _
DotNetNuke.Entities.Modules.UserUserControlBase.UserCreatedEventArgs(Nothing)
args.Notify = False
End If
args.CreateStatus = objStatus

ok thanks

 

here is what i'm trying to do. correct me if i'm worng.

I am authenticating users through an API,  if they are a valid user, then i want to call your routine that creates the new user. then log then in DNN as that new user

So i want to place this code in the login in module right above where DNN authenticates users?

here is my code this not working i dont know what i'm doing wrong.

 

 

 

Dim oUser = New UserInfo()
oUser.PortalID = Me.PortalId
oUser.IsSuperUser = False
oUser.FirstName = "FirstName"
oUser.LastName = "LastName"
oUser.Email = "test@test.com"
oUser.Username = "MyUsername"
oUser.DisplayName = "FirstName LastName"


'Fill MINIMUM Profile Items (KEY PIECE)
oUser.Profile.PreferredLocale = PortalSettings.DefaultLanguage
oUser.Profile.TimeZone = PortalSettings.TimeZoneOffset
oUser.Profile.FirstName = oUser.FirstName
oUser.Profile.LastName = oUser.LastName

'//'Set Membership
Dim oNewMembership = New UserMembership()
oNewMembership.Approved = True
oNewMembership.CreatedDate = System.DateTime.Now
oNewMembership.Email = oUser.Email
oNewMembership.IsOnLine = False
oNewMembership.Username = oUser.Username
oNewMembership.Password = "test"

'//Bind membership to user
oUser.Membership = oNewMembership
UserController.CreateUser(oUser)
Response.Write(UserController.CreateUser(oUser))
'//Add the user, ensure it was successful
'if UserCreateStatus.Success == UserControfller.CreateUser(ref oUser) then

If UserCreateStatus.Success = UserController.CreateUser(oUser) Then
Response.Write(UserController.CreateUser(oUser))
End If