Skip to Content
0
Former Member
Nov 16, 2013 at 03:11 PM

Ldap authentication issue

49 Views

Are there any disadvantages of using the following script to update the ldap list? Can the "@BOECLUSTERNAME in the code below be any one of the 3 nodes in the environment. Is this directly(secLDAPplugin.Properties.Item("SI_UPDATE_TS").Value = now) updating the cms db?

Dim oSessionManager
Dim oEnterpriseSession
Dim oSess

'For the logon, Authenticate as Following
Const APS = "@BOECLUSTERNAME"
Const UserID="Administrator"
Const Password = ""
Const Aut = "SecEnterprise"

'Create an Enterprise oSessionManager
Set oSessionManager = CreateObject("CrystalEnterprise.SessionMgr")
Set oSess = oSessionManager.Logon(UserID, Password, APS, Aut)


'Query the iStore and Set The Last Updated Time to refresh graph
On Error Resume Next
'Create a new Variable for the login token
Set iStore = oSess.Service("", "InfoStore")
Set secLDAPplugins = iStore.Query("SELECT TOP 1* FROM CI_SYSTEMOBJECTS WHERE SI_NAME='secLDAP'")

Set secLDAPplugin = secLDAPplugins.Item(1)
secLDAPplugin.Properties.Item("SI_UPDATE_TS").Value = now
iStore.Commit secLDAPplugins