Проблема такая: у нас на предприятии пользователи используют скрипт для формирования справочника с телефонами пользователей, который выдергивает из Active Directory данные о пользователях и формирует из них адресную книгу в Excel. Данные сортируются по фамилии пользователей в столбец, а начальство требует чтобы пользователи группировались по департаментам. Т.е. 1 строка 1й департамент, 2-10 строки фамилии пользователей первого департамента, 11я строка 2й департамент, 12-15 строки фамилии пользователей второго департамента и т.д. пока не будут перечислены все имеющиеся департаменты. Часть кода с циклом представлен ниже. Помогите доработать код, vbs только начал осваивать, сам не могу разобраться.

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"

Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 100
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.CommandText = _
"SELECT displayName, department, title, telephoneNumber, otherTelephone, mobile, mail FROM " _
& "'LDAP://OU=***,OU=***,OU=***,DC=***,DC=**' WHERE " _
& "objectCategory='user' AND useraccountcontrol <> '514' ORDER By displayName"
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
x = 5

Do Until objRecordSet.EOF
objExcel.Cells(x, 2).Value = _
objRecordSet.Fields("displayName").Value
objExcel.Cells(x, 3).Value = _
objRecordSet.Fields("title").Value
objExcel.Cells(x, 4).Value = _
objRecordSet.Fields("telephoneNumber").Value
objExcel.Cells(x, 5).Value = _
objRecordSet.Fields("otherTelephone").Value
objExcel.Cells(x, 6).Value = _
objRecordSet.Fields("mobile").Value
objExcel.Cells(x, 7).Value = _
objRecordSet.Fields("mail").Value

'Set objRange = objExcel.Rows(x)
'objRange.Activate
'Set objRange = objExcel.ActiveCell.EntireColumn
'objRange.Autofit()

x = x + 1
objRecordSet.MoveNext
Loop

скукотища, спасибо, очень помог!