Frage : Wie man Verteilerlisten vom aktiven Verzeichnis exportiert

Hello
I morgens mangels des Exports der Benutzer von meinen vielen distro Listen in ein Format, das lesbar ist. Ich verwendete das folgende:
Set oRootDSE = GetObject („LDAP: //RootDSE " )
strBase = „gContext“) u. „>; „
strFilter =“ (u. (objectclass=group) (sAMAccountType=268435457)); „
strAttrs = „distinguishedName; „
strScope = „Unterbaum "

Set objConn = CreateObject („ADODB.Connection“)
objConn.Provider = „ADsDSOObject "
objConn.Open „aktiver Verzeichnis-Versorger "
Set objRS = objConn.Execute (strBase u. strFilter u. strAttrs u. strScope)

objRS.MoveFirst
Dim objGroup
While nicht objRS.EOF
gesetztes objGroup = GetObject („LDAP: /“ u. ersetzen (objRS.Fields (0). Value, „/“, „\ /"))
WScript.Echo „------------------------------------------------------- "
WScript.Echo „schloß an, um DN zu gruppieren: “ u. objGroup.distinguishedName/>
WScript.Echo „Mitglieder….„
groupMembers = objGroup.member
, wenn IsEmpty (groupMembers) Then
'keine groups.
ElseIf (TypeName (groupMembers) = „Schnur“) Then
echoDetails ((groupMembers,“/„,“ \/"))
Else
ersetzen für jedes strGroup groupMembers
in den echoDetails ((strGroup,“/„,“ \/"))
Next
Ende If
WScript.Echo „ersetzen------------------------------------------------------- "
WScript.Echo ""
objRS.MoveNext
Wend

Sub echoDetails (strMemberDN)
'GEBRAUCH EINER DER DREI ECHO-AUSSAGEN HIER, IHREM NOTWENDIGKEITEN…
gesetzten objMember = GetObject ZU ENTSPRECHEN („LDAP: /“ u. strMemberDN)
'WScript.Echo „….“ u. objMember.givenName u. „„u. objMember.sn
'WScript.Echo“….„u. objMember.name
WScript.Echo“….„u. objMember.cn
End Sub


This tut Züge, was ich es benötige, bis zu dem Hochziehen der Benutzer zu tun. Aber es öffnet sie oben in den einzelnen sofortigen Kästen, anstatt, sie in ein txt oder in ein csv zu setzen… Was würde hinzugefügt, um irgendeine Art vom Ausgang zu bilden brauchen?

I versuchte auch dieses:

Dim objGroup, objExcel, iRow, strUser
Set objGroup = GetObject („LDAP: //CN=Distribution Liste, ou=all_staff, dc=winningtech, dc=local“)
Set objExcel = CreateObject („Excel.Application“)
With objExcel
.SheetsInNewWorkbook = 1
. Workbooks.Add
. Sichtbar = True
. Worksheets.Item (1).Name = mittler (objGroup.Name, instr (1, objGroup.Name, „=") + 1) 'stellte Arbeitsblattnamen auf den des DL
irow=1
für jedes strUser objGroup.Member
in gesetztem objUser = in GetObject ein („LDAP: /“ u. strUser)
. Zellen (iRow, 1) = objUser.CN
. Zellen (iRow, 2) = objUser.EmailAddress
irow=irow + 1
Next
.Columns (1).entirecolumn.autofit
End mit
Set objExcel = Nothing
Set objGroup = nichts


But erhielt eine Störung auf der Linie 3, die angibt, dass der Gegenstand nicht gefunden werden könnte. Aber dort übertreffen installed.

Any ist Ideen? Dieses ist ziemlich wichtig. Thanks.

Antwort : Wie man Verteilerlisten vom aktiven Verzeichnis exportiert

Leider als Programmierer, denke ich, dass ich 100% sagen kann, dass diese Funktionalität zur betroffenen Anwendung geeinbaut (welches ist, warum Sie sie nicht auf jeder Anwendung erhalten).  In dem Drehen sie ausgedrückt weg kann ich finden, keine Methode, zum dieses zu erlauben und ich nicht denken, dass es möglich ist.  Die einzige Sache, die Sie verhindern können, ist Fenster using die Sprunglisten, zum der vor kurzem geöffneten Dokumente/der Web site zu zeigen.  Mich informieren, wenn dieses nützlich ist und ich erkläre, wie man diese abstellt.  Für Anwendung Listen springen, die sie schaut, wie Sie mit ihnen gehaftet ich Angst habe.

Respekt,

Ady