Можно ли распечатать Properties для ntds://name.home/Groups

[jan]

Можно ли распечатать Properties для всех групп из ntds://name.home/Groups с помощью VBA?

[jan]

вот этим кодом в ексел я переписываю всех из Security Logins MS SQL:
Public Sub SQLDMO_3() 'security_logins

Const Srv1Name = "srvname"
Dim srv1 As SQLServer
Set srv1 = New SQLServer

'Подсоединиться к серверу и сохранить для глобального использования.
srv1.Connect Srv1Name, "sa", ""
srv1.ODBCPrefix = 0
Sheets("Security_Logins").Select
For icol = 1 To srv1.EnumAccountInfo.Columns 'Для заголовков
Cells(1, icol).Value = srv1.EnumAccountInfo.ColumnName(icol)
Next icol
For irow = 1 To srv1.EnumAccountInfo.Rows
For icol = 1 To srv1.EnumAccountInfo.Columns
Cells(irow+1, icol).Value = srv1.EnumAccountInfo.GetColumnString(irow, icol)
Next icol
Next irow
End Sub
Как дополнить код, чтобы если type у loginа group, а не user выводить в ексел членов группы ntds? В моём коде работает библиотека SQLDMO, какую-то ещё надо

[jan]

по ссылке http://www.vbrussian.com/Article.asp?ID=72 -то, что надо, но что за объект ActiveDs, в какой он библе?

[jan]

подключаем activeds.dll, в Tools/References Active DS Type Library и ... опять нет хелпа. Кто знает?