Cognos LAE备份自动化(Batch File?)

Question

在Cognos7.4安全性中..可以创建一个LAE文件来导出他们的所有用户...

这里的方向..。http://www.cognos-install.co.uk/articles/backups/access_manager_export_to_lae.asp

现在，您将在底部注意到“最后，可以为此任务构建自动化流程，但这超出了本文档的范围。”如果您觉得自动化流程对您的组织很重要，则可以使用具有Cognos Planning专业知识的技术顾问来实现。

有没有人有批处理脚本...或Access Manager的命令行..用于导出LAE文件？我希望在发生灾难时自动备份我的用户。这不能是第一个请求。

蒂娅，柯比

Answer 1

Sub Main() Dim objAuthApp As Object Dim objAuthDoc As Object Dim objLAEConfig As Object Dim objDSConfig As Object Dim laef

    laef = "\\backupsserver\backups\LAEBackup-" & Year(Now) & "-" & Month(Now) & "-" & Day(Now) & ".lae"
    objAuthApp = CreateObject("Authenticator2.Application")
    objLAEConfig = objAuthApp.LAEConfigurations.Add(laef)
    objDSConfig = objAuthApp.DSConfigurations.Add("servername", 389, "o=cognos,dc=com", 0)


    objDSConfig.DefaultSecuritySource = True
    objAuthApp.Export("Default", "Administrator", "password", True, False)
    objAuthApp.Quit()


    objDSConfig = Nothing
    objLAEConfig = Nothing
    objAuthDoc = Nothing
    objAuthApp = Nothing
End Sub