DESCRIPTION
This standalone script demonstrates how to programmatically request Active Roles to generate random user password
SCRIPT
'*********************************************************************************
' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND,
' EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED
' WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
'
' IF YOU WANT THIS FUNCTIONALITY TO BE CONDITIONALLY SUPPORTED,
' PLEASE CONTACT ONE IDENTITY PROFESSIONAL SERVICES.
'*********************************************************************************
'
Option Explicit
Function GeneratePasswordForUser(ByVal strUserDN)
Dim objUser, objPolicyInfoList, objPolicyInfo
GeneratePasswordForUser = Empty
Set objUser = GetObject("EDMS://" & strUserDN)
objUser.Control(EDS_CONTROL_FULL_EFFECTIVE_POLICY_INFO) = "edsaPassword"
Set objPolicyInfoList = objUser.GetPolicyInfoList()
For Each objPolicyInfo in objPolicyInfoList
If (objPolicyInfo.Name = "edsaPassword") Then
GeneratePasswordForUser = objPolicyInfo.GeneratedValue
Exit Function
End If
Next
End Function
'------
MsgBox "Generated password = " & GeneratePasswordForUser("CN=John Smith,OU=Sales,DC=foo,DC=com")
DESCRIPTION
This script policy demostrates how to enforce random password generation during user creation
SCRIPT
' *****************************************************************************
' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND,
' EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED
' WARRANTIES OF MERCHANTBILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
'
' IF YOU WANT THIS FUNCTIONALITY TO BE CONDITIONALLY SUPPORTED,
' PLEASE CONTACT QUEST PROFESSIONAL SERVICES OR CUSTOM DEVELOPMENT.
' *****************************************************************************
'
Option Explicit
Sub onPreCreate(Request)
If (LCase(Request.Class) <> "user") Then Exit Sub
Dim objParent, objChild
Set objParent = GetObject(Request.Parent)
Set objChild = objParent.Create(Request.Class, Request.Name)
Dim objPolicyInfoList, objPolicyInfo
objChild.Control(EDS_CONTROL_FULL_EFFECTIVE_POLICY_INFO) = "edsaPassword"
Set objPolicyInfoList = objChild.GetPolicyInfoList()
For Each objPolicyInfo In objPolicyInfoList
If (objPolicyInfo.Name = "edsaPassword") Then
Request.Put "edsaPassword", objPolicyInfo.GeneratedValue
End If
Next
End Sub
'***** END OF CODE ***************************************************************