RE: Add User Identity

Nathan H. — Thu, 04 Mar 2021 21:16:47 GMT

Good day all. Just a follow up with this. Josh Jerge (Aras SUpport) helped to modify a method that we have for allowing Users to be added. I thought I would post it here in case someone else wants to use it.

Name: UpdateUserForSSO

Execution: World

Script:

'attach this to the OnAfterAdd and OnAfterUpdate events for the USER itemtype
'See myinnovator.com issue IR-006086.
'MethodTemplateName=VBScriptMainUpgrade;

Sub MethodMainSubroutine()

Const pmIdentityNm As String = "Administrators"
Dim pmIdentity As Aras.Server.Security.Identity = Aras.Server.Security.Identity.GetByName(pmIdentityNm)

Dim pmIdentityWasGranted As Boolean = Aras.Server.Security.Permissions.GrantIdentity(pmIdentity)
If Not CCO.Permissions.UserHasRootOrAdminIdentity() Then
Exit Sub
End If

Dim cfgpath As String = "/Innovator/ClientLogon"
Dim cfg As XmlElement = CType(CCO.Cache.GetCacheInfo("ApplicationXML").SelectSingleNode(cfgpath), XmlElement)

If IsNothing(cfg) OrElse cfg.GetAttribute("shared_secret") = "" Then
Exit Sub
End If

CCO.ApplyItem.ExecuteMethodByName(inDom, outDom, "Reset All Auth Passwords", True)
If pmIdentityWasGranted Then
Aras.Server.Security.Permissions.RevokeIdentity(pmIdentity)
End If

End Sub

RE: Add User Identity

Nathan H. — Thu, 03 Dec 2020 14:17:08 GMT

Well, it looks like it was fixed with FM. One of the team members contacted me this morning to let me know that she was able to add a user. I guess it just took a little bit for everything to work.