Sub Main ()
Dim objAuthApp As Object
Dim objAuthDoc As Object
Dim objLAEConfig As Object
Dim objDSConfig As Object
Дим лаф
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