Cuestión : Cómo exportar listas de distribuciones de directorio activo

Hello
I necesitando la exportación de usuarios de mis muchas listas del distro en un formato que es legible. Utilicé el siguiente: oRootDSE del
Set = GetObject (“LDAP: //RootDSE
)/>strBase = “ de oRootDSE.get (“defaultNamingContext”) y “>; “
strFilter =” (y (objectclass=group) (sAMAccountType=268435457)); “
strAttrs = “distinguishedName; “
strScope = “sub-estructura " objConn del
Set del
=
tion”)/>objConn.Provider = “abastecedor activo " objRS del directorio del "
objConn.Open “de ADsDSOObject del
Set = objGroup determinado del objGroup
While no objRS.EOF
del
objRS.MoveFirst
Dim del
de objConn.Execute (strBase y strFilter y strAttrs y strScope) = GetObject (“LDAP: /” y substituir (objRS.Fields (0). Value, “/”, “\
WScript.Echo del /")) “-------------------------------------------------------el "
WScript.Echo “conectó para agrupar el DN: ” y objGroup.distinguishedName/>
WScript.Echo “….“groupMembers del
= objGroup.member
si IsEmpty (groupMembers) Then
'ningunos echoDetails de groups.
ElseIf (TypeName (groupMembers) = “secuencia”) Then
(substituir (el groupMembers,”/el “,” \/")) el
Else
para cada strGroup en echoDetails del groupMembers
(substituir (el strGroup,”/“,” \/")) el extremo If
WScript.Echo del
Next
“-------------------------------------------------------
'USO UNO de los echoDetails del
Sub del
objRS.MoveNext
Wend
del "" del
WScript.Echo del " (strMemberDN) DE LAS TRES DECLARACIONES del ECO AQUÍ DE ADAPTARSE A SU objMember = GetObject determinados (“LDAP del
de las NECESIDADES…: /” y
'WScript.Echo “del strMemberDN)….” y objMember.givenName y ““y objMember.sn
'WScript.Echo”….“y objMember.name
WScript.Echo”….“y los tirones de objMember.cn
End Sub


This hacen lo que lo necesito hacer hasta el levantamiento de los usuarios. Pero los abre para arriba en cajas pronto individuales en vez de ponerlas en un txt o un csv… ¿Qué necesitaría agregado para hacer una cierta clase de salida? el

I también intentó esto: objGroup del

Dim, objExcel, iRow, objGroup del strUser
Set = GetObject (“LDAP: lista de //CN=Distribution, ou=all_staff, dc=winningtech, objExcel del
Set del dc=local”) = objExcel
del
With de CreateObject (“Excel.Application”) .SheetsInNewWorkbook = 1
. Workbooks.Add
. Visible = True
. Worksheets.Item (1).Name = mediados de (objGroup.Name, instr (1, objGroup.Name, “=") + 1) 'fijó nombre de la hoja de trabajo a el del
de DL
irow=1 para cada strUser en el objUser determinado = GetObject (“LDAP de objGroup.Member
: /” y
del strUser). Células (iRow, 1) = objUser.CN
. Células (iRow, 2) = irow=irow de objUser.EmailAddress
+ 1
Next
.Columns (1).entirecolumn.autofit
End con el objExcel del
Set = el objGroup de Nothing
Set = nada el


But consiguió un error en la línea 3 que indicaba que el objeto no se podría encontrar. ¿Pero allí son sobresalen installed.

Any? Esto es algo importante. Thanks. class= del

Respuesta : Cómo exportar listas de distribuciones de directorio activo

Desafortunadamente, como programador, pienso que puedo el 100% decir que esta funcionalidad está incorporada al uso referido (cuál es porqué usted no lo consigue en cada uso).  En términos de torneado de él apagado puedo encontrar ningún método para permitir esto y yo no pensar que sea posible.  La única cosa que usted puede prevenir es ventanas usar las listas del salto para demostrar documentos/Web site recientemente abiertos.  Dejarme saber si esto es útil y explico cómo apagar éstos.  Para el uso saltar las listas que mira como le pegan con ellas tengo miedo.

Respetos,

Ady