Updating your Enterprise users passwords by group

[former_member184995]

A customer had an issue where they could update all their users passwords at once using a script they already had, but they needed to be able to update user passwords by group instead.

Updating everyone is easy as you just grab every user in your query (you are making sure to exclude the administrator and guest from the query aren't you?) and loop through them all and set the password to whatever you want.  Simple enough.

Doing so by group is different as you need to get the users specific to that group and the way users and groups are linked in Enterprise makes it more of a challenge.  It takes multiple queries to get the users from your group and then be able to update them.

I created a sample for the customer and am attaching the code.  Essentially it queries for the group you are looking to modify, gets the number of users and dynamically creates the new query to query for all of the users in that group.  You can then loop through those users and modify their passwords.

Here is the code.  You need to make sure to include the CrystalDecisions.Enterprise.Desktop.User and .UserGroups in your references as well.

Good luck!

VB.NET Code
Imports CrystalDecisions.EnterpriseImports CrystalDecisions.Enterprise.DesktopImports CrystalDecisions.Enterprise.PluginInterfacePartial Class _Default    Inherits System.Web.UI.Page    Dim boSessionMgr As New SessionMgr    Dim boEnterpriseSession As EnterpriseSession    Dim boInfoStore As InfoStore    Dim boInfoObject As InfoObject    Dim boInfoObjects As InfoObjects    Dim boGroup As UserGroup    Dim strSQL As String    Dim strList As String    Dim boUsers As InfoObjects    Dim boUser As InfoObject    Dim boUserInterface As User    Dim s As Integer    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load        boEnterpriseSession = boSessionMgr.Logon("administrator", "", System.Environment.MachineName, "secEnterprise")        boInfoStore = New InfoStore(boEnterpriseSession.GetService("InfoStore"))        'Grab usergroup        strSQL = "Select * from CI_SystemOBJECTS where si_progid = 'CrystalEnterprise.UserGroup' and SI_NAME = 'Group1'"        boInfoObjects = boInfoStore.Query(strSQL)        boInfoObject = boInfoObjects(1)        'Create my table for group and user info        Response.Write("") Response.Write("") For Each boInfoObject In boInfoObjects boGroup = New UserGroup(boInfoObject.PluginInterface) 'create a dynamic SQL statement to query for all the groups 'that the user belongs to. 'check for users If boGroup.Users.Count > 0 Then strSQL = "SELECT SI_NAME FROM CI_SYSTEMOBJECTS " strSQL += "WHERE SI_ID = " + boGroup.Users(1).ToString For s = 2 To boGroup.Users.Count strSQL += " OR SI_ID = " + boGroup.Users(s).ToString Next 'get the groups from the InfoStore. Then loop through and output. boUsers = boInfoStore.Query(strSQL) 'loop through all users and update their password For Each boUser In boUsers Response.Write("") Response.Write("") boUserInterface = New User(boUser.PluginInterface) boUserInterface.NewPassword = "newpassword123" Next boInfoStore.Commit(boUsers) Else 'if no user, just output the group name and a blank Response.Write("") Response.Write("") End If Next Response.Write("") Response.Write("Passwords of users above have been updated") End Sub End Class

Group Name	User Name
" + boGroup.Properties("SI_NAME").ToString + "	" + boUser.Properties("SI_NAME").ToString + "
" + boGroup.Properties("SI_NAME").ToString + "