Вопрос : Как ехпортировать списки распределений от активно директории

Hello
I am в потребности ехпортировать потребителей от моих много списков distro в форму четко. Я использовал следующий: oRootDSE
Set = GetObject («LDAP: //RootDSE "
)/>strBase = « oRootDSE.get («defaultNamingContext») & «>; «
strFilter =» (& (objectclass=group) (sAMAccountType=268435457)); «
strAttrs = «distinguishedName; «
strScope = «поддерево " objConn
Set
=
tion»)/>objConn.Provider = провайдер " objRS директории
objConn.Open ««ADsDSOObject " активно
Set = objGroup objGroup
While не objRS.EOF

objRS.MoveFirst
Dim
objConn.Execute (strBase & strFilter & strAttrs & strScope) установленное = GetObject («LDAP: /» & замените (objRS.Fields (0). Value, «/», «\
WScript.Echo /")) «------------------------------------------------------- "
WScript.Echo «соединилось для того чтобы собрать DN: » & objGroup.distinguishedName/>
WScript.Echo «….«groupMembers
= objGroup.member
если IsEmpty (groupMembers) Then
'отсутствие echoDetails, то groups.
ElseIf (TypeName (groupMembers) = «шнур») Then
(замените (groupMembers,»/«,» \/"))
Else
для каждого strGroup в echoDetails groupMembers
(замените (strGroup,»/«,» \/")) конец If
WScript.Echo
Next
«-------------------------------------------------------
'ПОЛЬЗА ОДНО echoDetails
Sub
objRS.MoveNext
Wend
""
WScript.Echo " (strMemberDN) 3 ЗАЯВЛЕНИЙ ОТГОЛОСКА ЗДЕСЬ ОДЕТЬ ВАШИ objMember
ПОТРЕБНОСТЕЙ… установленные = GetObject («LDAP: /» &
'WScript.Echo «strMemberDN)….» & objMember.givenName & ««& objMember.sn
'WScript.Echo»….«& objMember.name
WScript.Echo»….«& тяги objMember.cn
End Sub


This делают мне нужно оно сделать далеко как вытягивать вверх по потребителям. Но оно раскрывает их вверх в индивидуальных проворных коробках вместо класть их в txt или csv… После того как оно добавлено, что сделали некоторый вид выхода?

I также судимое это: objGroup

Dim, objExcel, iRow, objGroup strUser
Set = GetObject («LDAP: список //CN=Distribution, ou=all_staff, dc=winningtech, objExcel
Set dc=local») =
With CreateObject («Excel.Application») objExcel
.SheetsInNewWorkbook = 1
. Workbooks.Add
. Видимо = True
. Worksheets.Item (1).Name = средний (objGroup.Name, instr (1, objGroup.Name, «=") + 1) 'установило имя рабочий лист к тому из
DL
irow=1 для каждого strUser в objUser objGroup.Member
установленном = GetObject («LDAP: /» &
strUser). Клетки (iRow, 1) = objUser.CN
. Клетки (iRow, 2) = irow=irow objUser.EmailAddress
+ 1
Next
.Columns (1).entirecolumn.autofit
End с objExcel
Set = objGroup Nothing
Set = ничего


But получило ошибке он-лайн 3 заявляя что предмет не smog быть. Но там первенствуют installed.

Any? Это довольно важно. Thanks. class=

Ответ : Как ехпортировать списки распределений от активно директории

Несчастливо, как программник, я думаю я может 100% сказать что эта функциональность построена внутри к применению обеспокоенный (которое почему вы не получаете его на каждом применении).  Оперируя понятиями поворачивать его я могу найти никакой метод для того чтобы позволить это и я не думайте по возможности.  Единственной вещью, котор вы можете предотвратить будет окна using списки скачки для того чтобы показать недавн раскрынные документы/вебсайт.  Препятствуйте мне знать если это полезно и я объясню как повернуть эти.  Для применения поскачите списки, котор оно смотрит как вы вставлены с ими я испуган.

Отношения,

Ady