Access Configuration Manager - Directory Server Connection 2

[collierd]

Hello

Can this be automated rather than having to run access manager config wizard every time to point to a different server

Thanks

Damian.

 

[flex13]

Here you go. Don't forget to take out the line breaks.

Sub Main()

Dim objAutoConfigApp as Object
Dim objDSConfig as Object

Set objAutoConfigApp = CreateObject ("AutoConfiguration.Application")

Set objDSConfig = objAutoConfigApp.DSConfigurations.Add("HumanResources", 389, "o=Cognos, c=CA", 0)

Set objAutoConfigApp = Nothing
Set objDSConfig = Nothing

End Sub

 

[collierd]

Thanks

Where do I put the server name into this routine

 

[collierd]

ok, got it

replace "Human Resources" with the server name and "o=Cognos ..." with the base DN org and country


Thanks

Damian.

 

[flex13]

Sorry about that, I forgot to replace the servername.