long ll_person
If currentrow >  0  Then
ll_person = dw_list.GetItemNumber(currentow, 'objectSid')
End If

set @SQL_Query = '''SELECT  objectSid, name, department, company, telephoneNumber, userAccountControl, homePhone, mobile, title, info, ipPhone, physicalDeliveryOfficeName FROM ''''LDAP://<параметр>,OU=<параметр>,DC=<параметр>,DC=<параметр>'''' WHERE objectClass = ''''user'''' and objectCategory=''''Person''''  '''
set @SQL_Query2 = '''SELECT l, name FROM ''''LDAP://<параметр>,OU=<параметр>,DC=<параметр>,DC=<параметр>'''' WHERE objectClass = ''''organizationalUnit'''' '''
set @SQL_OpenQuery= 'select  s.name, s.department, s.company, s.telephoneNumber, s.userAccountControl, s.homePhone, s.mobile, s.title, s.info, d.l, s.ipPhone, Cast(s.objectSid as bigint) as objectSid from OPENQUERY(<LS>, ' +@SQL_Query+ ')  s , OPENQUERY(<LS>, ' +@SQL_Query2+ ')  d where s.department=d.name and (s.userAccountControl & 2 = 0) and s.info is not null order by d.l, cast(s.physicalDeliveryOfficeName as int) desc, s.info '