Questione : Come esportare le liste di distribuzioni dall'indice attivo

Hello
I necessitante l'esportazione degli utenti dalle mie molte liste di distro in una disposizione che è leggibile. Ho usato quanto segue: oRootDSE del
Set = GetObject (“LDAP: //RootDSE "
)/>strBase = “ di oRootDSE.get (“defaultNamingContext„) & “>; “
strFilter =„ (& (objectclass=group) (sAMAccountType=268435457)); “
strAttrs = “distinguishedName; “
strScope = “sotto-albero " objConn del
Set del
=
tion„)/>objConn.Provider = fornitore attivo " objRS dell'indice del
objConn.Open ““di ADsDSOObject " del
Set = objGroup stabilito del objGroup
While non objRS.EOF
del
objRS.MoveFirst
Dim del
di objConn.Execute (strBase & strFilter & strAttrs & strScope) = GetObject (“LDAP: /„ & sostituire (objRS.Fields (0). Value, “/„, “\
WScript.Echo del /")) “-------------------------------------------------------il "
WScript.Echo “si è collegato per raggruppare il DN: „ & objGroup.distinguishedName
WScript.Echo “nome di gruppo: „ & objGroup.sAMAccountName
WScript.Echo “….“groupMembers del
= objGroup.member
se IsEmpty (groupMembers) Then
'nessun echoDetails di groups.
ElseIf (TypeName (groupMembers) = “stringa„) Then
(sostituire (groupMembers,„/“,„ \/")) il
Else
per ogni strGroup nei echoDetails del groupMembers
(sostituire (strGroup,„/“,„ \/")) l'estremità If
WScript.Echo del
Next
“-------------------------------------------------------
'USO UNO dei echoDetails del
Sub del
objRS.MoveNext
Wend
del "" del
WScript.Echo del " (strMemberDN) delle TRE DICHIARAZIONI di ECO QUI ESSERE ADATTO al VOSTRI objMember del
di BISOGNI… = GetObject stabiliti (“LDAP: /„ &
'WScript.Echo “dello strMemberDN)….„ & objMember.givenName & ““& objMember.sn
'WScript.Echo„….“& objMember.name
WScript.Echo„….“& i tiri di objMember.cn
End Sub


This fa che cosa lo ho bisogno di fare fino a tir suare gli utenti. Ma li apre in su in diverse scatole rapide invece di metterle in un txt o in un csv… Che cosa avrebbe bisogno di aggiunto per fare una certa specie di uscita? il

I inoltre ha provato questo: objGroup del

Dim, objExcel, iRow, objGroup dello strUser
Set = GetObject (“LDAP: lista di //CN=Distribution, ou=all_staff, dc=winningtech, objExcel del
Set del dc=local„) = objExcel
del
With di CreateObject (“Excel.Application„) .SheetsInNewWorkbook = 1
. Workbooks.Add
. Visibile = True
. Worksheets.Item (1).Name = metà di (objGroup.Name, instr (1, objGroup.Name, “=") + 1) 'ha fissato il nome del manuale a quello del
di DL
irow=1 per ogni strUser nel objUser stabilito di objGroup.Member
= in GetObject (“LDAP: /„ &
dello strUser). Cellule (iRow, 1) = objUser.CN
. Cellule (iRow, 2) = irow=irow di objUser.EmailAddress
+ 1
Next
.Columns (1).entirecolumn.autofit
End con il objExcel del
Set = il objGroup di Nothing
Set = niente


But ha ottenuto un errore sulla linea 3 che dichiara che l'oggetto non potrebbe essere trovato. Ma là è eccellono installed.

Any? Ciò è piuttosto importante. Thanks. class= del

Risposta : Come esportare le liste di distribuzioni dall'indice attivo

Purtroppo, come programmatore, penso che possa 100% dire che questa funzionalità è integrata all'applicazione responsabile (quale è perché non la ottenete su ogni applicazione).  In termini di giro esso fuori posso trovare metodo per permettere questo ed io non pensare che sia possibile.  L'unica cosa che potete evitare è finestre using le liste di salto per mostrare i documenti/Web site recentemente aperti.  Lasciarlo sapere se questo è utile e spiegherò come spegnere questi.  Per l'applicazione saltare le liste che osserva come siete attaccato con loro sono impaurito.

Riguardi,

Ady