Прошу подсказки:
Необходимо получить список пользователей в составе группы AD
Код работает правильно, не считая того, что в Worksheets("Email").Cells(kol, "C").Value попадает только одна запись CN
В действительности атрибут member имеет от 1 до 7 CN записей.
Что не так?
Необходимо получить список пользователей в составе группы AD
Код работает правильно, не считая того, что в Worksheets("Email").Cells(kol, "C").Value попадает только одна запись CN
В действительности атрибут member имеет от 1 до 7 CN записей.
Что не так?
Код |
---|
Sub test2() strOU = "OU=mailbox,OU=Groups,OU=nnm,DC=nnm,DC=local" Set objConnection = CreateObject("ADODB.Connection") objConnection.Open "Provider=ADsDSOObject;" Set objCommand = CreateObject("ADODB.Command") objCommand.ActiveConnection = objConnection objCommand.Properties("Page Size") = 1000 objCommand.CommandText = "<LDAP://" & strOU & ">;" & "(&(objectclass=top));" & "description,member,sAMAccountName" On Error Resume Next Set objRecordset = objCommand.Execute If Err.Number <> 0 Then MsgBox "Exception occured: " & Err.Description On Error GoTo 0 Set objRecordset = objCommand.Execute kol = 2 Do Worksheets("Email").Cells(kol, "A").Value = objRecordset.Fields("sAMAccountName").Value Worksheets("Email").Cells(kol, "B").Value = objRecordset.Fields("description").Value Worksheets("Email").Cells(kol, "C").Value = objRecordset.Fields("member") kol = kol + 2 objRecordset.MoveNext Loop While Not objRecordset.EOF objRecordset.Close Set objRecordset = Nothing Set objCommand = Nothing objConnection.Close Set objConnection = Nothing End Sub |