>LPARAMETERS luseCursorSchema, lNoData, nOptions, Source > >TRY >lWasError = .F. >WAIT WINDOW NOWAIT "Connecting to SQL-Server via ADO..." > >local loConnDataSource >set multilocks on >loConnDataSource = createobject('ADODB.Connection') > >loConnDataSource.ConnectionString = [Provider=ADsDSOObject;Password=mypassword;User ID=myuser;Encrypt Passw] + ; > [ord=True;Data Source="LDAP://server.domain.com/dc=domain,dc=com";Mode=Read;Bind] + ; > [ Flags=0;ADSI Flag=-2147483648;] > >loConnDataSource.Open() >This.DataSource = createobject('ADODB.RecordSet') >This.DataSource.CursorLocation = 3 && adUseClient >This.DataSource.LockType = 3 && adLockOptimistic >This.DataSource.ActiveConnection = loConnDataSource > >This.SelectCmd = [select distinguishedname, sn, givenname, employeeid from 'LDAP://server.domain.com/dc=domain,dc=com' where objectCategory='Person' and objectClass='User' and sn='*'] > >WAIT CLEAR >CATCH > WAIT CLEAR > lWasError = .T. >ENDTRY > >IF lWasError > RETURN .F. >ELSE > return dodefault(.T., lNoData, nOptions, loConnDataSource) >ENDIF >>