1 Private Sub getUserInfo()
2 'Add reference to DotNetNuke.dll
3 Dim mRoles As New DotNetNuke.Entities.Users.OnlineUserInfo
4 Dim mUserRoles As New DotNetNuke.Security.Roles.RoleController
5 Dim mUser As DotNetNuke.Entities.Users.UserInfo = DotNetNuke.Entities.Users.UserController.GetCurrentUserInfo
6
7 Dim showRoles As String = ""
8
9 For Each i As String In mUserRoles.GetRolesByUser(mUser.UserID, mRoles.PortalID)
10 showRoles += i.ToString() + ", "
11 Next
12
13 'Me.Label1.Text = "UserName: " + mUser.Username
14 'Me.Label1.Text += "<br /> Full Name: " + mUser.FullName
15 'Me.Label1.Text += "<br /> UserID: " + mRoles.UserID.ToString()
16 'Me.Label1.Text += "<br /> Roles: " + showRoles
17 End Sub