Прошу подсказки:
Необходимо получить список пользователей в составе группы 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
|
