The task is to establish a connection to an Active Directory or Lightweight Directory Access Protocol server.

objConn := CreateObject("ADODB.Connection")
objCmd := CreateObject("ADODB.Command")
objConn.Provider := "ADsDSOObject"
objConn.Open()