Back to User management: Other
DESCRIPTION
No description
Note This code may use functions from the ARS Script Policy Best Practices. Please, follow the link to obtain instructions and code for those functions.
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.
'*********************************************************************************
'
' This code is published on the ActiveRoles Script Center:
' http://communities.quest.com/docs/DOC-9991
'
' This code may use functions from the ARS Script Policy Best Practices:
' http://communities.quest.com/docs/DOC-10016
'
' Please, follow the link to obtain instructions and code for those functions.
'*********************************************************************************
'***********************************************************************
' Script name : ChangeUmlaute.vbs
'
' This policy script replace in sn, givenname and other important attributes
' from Umlaute ä, ö, ü, ß to ae, oe, ue, ss
'
' Copyright (c) 2007 Quest Software Corporation; all rights reserved
'***********************************************************************
Sub onPreCreate(Request)
Request.Put "givenName", Replace(Replace(Replace(Replace(Request.Get("givenName"), "ä", "ae"),"ö", "oe") ,"ü","ue"),"ß","ss")
Request.Put "sn", Replace(Replace(Replace(Replace(Request.Get("sn"), "ä", "ae"),"ö", "oe") ,"ü","ue"),"ß","ss")
Request.Put "displayName", Replace(Replace(Replace(Replace(Request.Get("displayName"), "ä", "ae"),"ö", "oe") ,"ü","ue"),"ß","ss")
Request.Put "cn", Replace(Replace(Replace(Replace(Request.Get("cn"), "ä", "ae"),"ö", "oe") ,"ü","ue"),"ß","ss")
Request.Put "samAccountName", Replace(Replace(Replace(Replace(Request.Get("samAccountName"), "ä", "ae"),"ö", "oe") ,"ü","ue"),"ß","ss")
Request.Put "userPrincipalName", Replace(Replace(Replace(Replace(Request.Get("userPrincipalName"), "ä", "ae"),"ö", "oe") ,"ü","ue"),"ß","ss")
Request.Put "mailNickname", Replace(Replace(Replace(Replace(Request.Get("mailNickname"), "ä", "ae"),"ö", "oe") ,"ü","ue"),"ß","ss")
End Sub
'***** END OF CODE ***************************************************************
COMPATIBILITY
Script compatible with the following version(s): EDM 5.0 or later