Pergunta : Como exportar lista de distribuições do diretório ativo

Hello
I am na necessidade de exportar usuários de minhas muitas lista do distro em um formato que seja legível. Eu usei o seguinte: oRootDSE do
Set = GetObject (“LDAP: //RootDSE do "
)/>strBase = “ de oRootDSE.get (“defaultNamingContext”) & “>; “
strFilter =” (& (objectclass=group) (sAMAccountType=268435457)); “
strAttrs = “distinguishedName; “
strScope = “subtree do " objConn do
Set
=
tion”)/>objConn.Provider = fornecedor ativo do " objRS do diretório
objConn.Open ““de ADsDSOObject do "
Set = objGroup ajustado do objGroup
While não objRS.EOF
do
objRS.MoveFirst
Dim do
de objConn.Execute (strBase & strFilter & strAttrs & strScope) = GetObject (“LDAP: /” & substituir (objRS.Fields (0). Value, “/”, “\
WScript.Echo do /")) “-------------------------------------------------------o "
WScript.Echo “conetou para agrupar o DN: ” & objGroup.distinguishedName/>
WScript.Echo “….do “groupMembers
= objGroup.member
se IsEmpty (groupMembers) Then
'nenhuns echoDetails de groups.
ElseIf (TypeName (groupMembers) = “corda”) Then
(substituir (groupMembers,”/“,” \/")) o
Else
para cada strGroup em echoDetails do groupMembers
(substituir (strGroup,”/“,” \/")) a extremidade If
WScript.Echo do
Next
“-------------------------------------------------------
'USO UM dos echoDetails do
Sub do
objRS.MoveNext
Wend
do ""
WScript.Echo do do " (strMemberDN) das TRÊS INDICAÇÕES do ECO AQUI SERIR SEUS objMember do
das NECESSIDADES… = GetObject ajustados (“LDAP: /” &
'WScript.Echo “do strMemberDN)….” & objMember.givenName & ““& objMember.sn
'WScript.Echo”….“& objMember.name
WScript.Echo”….“& as trações de objMember.cn
End Sub


This fazem o que eu o preciso de fazer até levantar os usuários. Mas abre-os acima em umas caixas alertas individuais em vez de põr as em um txt ou em um csv… Que precisaria adicionado para fazer alguma sorte da saída? o

I igualmente tentou este: objGroup do

Dim, objExcel, iRow, objGroup do strUser
Set = GetObject (“LDAP: lista de //CN=Distribution, ou=all_staff, dc=winningtech, objExcel do
Set do dc=local”) = de
With de CreateObject (“Excel.Application”) objExcel
.SheetsInNewWorkbook = 1
. Workbooks.Add
. Visível = True
. Worksheets.Item (1). Nome = meados de (objGroup.Name, instr (1, objGroup.Name, “=") + 1) 'ajustou o nome da folha àquele do
de DL
irow=1 para cada strUser no objUser ajustado de objGroup.Member
= no GetObject (“LDAP: /” &
do strUser). Pilhas (iRow, 1) = objUser.CN
. As pilhas (iRow, 2) = irow=irow de objUser.EmailAddress
+ 1
Next
.Columns (1) .entirecolumn.autofit
End com objExcel do
Set = objGroup de Nothing
Set = nada o


But começ um erro na linha 3 que indic que o objeto não poderia ser encontrado. Mas lá são primam installed.

Any? Isto é um pouco importante. Thanks. class= do

Resposta : Como exportar lista de distribuições do diretório ativo

Infelizmente, como um programador, eu penso que eu posso 100% dizer que esta funcionalidade está construída dentro à aplicação referida (qual é porque você não a começ em cada aplicação).  Nos termos de girá-la fora eu posso encontrar nenhum método para permitir isto e mim não pensar que é possível.  A única coisa que você pode impedir é janelas using as lista do salto para mostrar originais/Web site recentemente abertos.  Deixar-me saber se isto é útil e eu explicarei como desligar estes.  Para a aplicação saltar lista que olha como você é furado com elas eu estou receoso.

Considerações,

Ady