Vraag : Hoe te om distributieslijsten van actieve folder uit te voeren

Hello
I am met behoefte aan uitvoerende gebruikers van mijn vele distrolijsten in een formaat dat leesbaar is. Ik gebruikte het volgende:
Set oRootDSE = GetObject („LDAP: //RootDSE " )
strBase = „gContext“) & „>; „
strFilter =“ (& (objectclass=group) (sAMAccountType=268435457)); „
strAttrs = „distinguishedName; „
strScope = „onderverdeling "

Set objConn = CreateObject („ADODB.Connection“)
objConn.Provider = „ADsDSOObject "
objConn.Open „de Actieve Leverancier "
Set van de Folder objRS = Geplaatste objConn.Execute (strBase & strFilter & strAttrs & strScope)

objRS.MoveFirst
Dim objGroup
While niet objRS.EOF
objGroup = GetObject („LDAP: /“ & vervang (objRS.Fields (0). Value, „/“, „\ /“))
WScript.Echo „ "
WScript.Echo „verbond met groep DN: “ & objGroup.distinguishedName
WScript.Echo „: “ & objGroup.sAMAccountName
WScript.Echo „Leden….„/> groupMembers
als IsEmpty (groupMembers) Then
'Geen groups.
ElseIf (TypeName (groupMembers) = „Koord“) Then
echoDetails (vervang (groupMembers,“/„,“ \/„))
Else
voor Elke strGroup in groupMembers
echoDetails (vervang (strGroup,“/„,“ \/ "))Het Eind If
WScript.Echo van
Next
„echoDetails (strMemberDN)
'GEBRUIK "/>/>/>/>Sub
Wend
AAN TE PASSEN objMember = GetObject („LDAP: /“ & strMemberDN)
'WScript.Echo „….“ & objMember.givenName & „„& objMember.sn
'WScript.Echo“….„& objMember.name
WScript.Echo“….„& trekt objMember.cn
End Sub


This doet wat I het vergt om zover als het uittrekken van de gebruikers te doen. Maar het opent hen in individuele snelle dozen in plaats van het zetten van hen in een txt of csv… Zou wat toegevoegd vereisen om één of andere soort output te maken?

I probeerde ook dit:

Dim objGroup, objExcel, iRow, strUser
Set objGroup = GetObject („LDAP: //CN=Distribution- Lijst, ou=all_staff, dc=winningtech, dc=local“)
Set objExcel = CreateObject („Excel.Application“)
With objExcel
.SheetsInNewWorkbook = 1
. Workbooks.Add
. Zichtbaar = True
. Worksheets.Item (1). De naam = medio (objGroup.Name, instr (1, objGroup.Name, „=“) + 1) 'plaatste de naam van het Aantekenvel aan dat van DL
irow=1
voor Elke Geplaatste strUser in objGroup.Member
objUser = GetObject („LDAP: /“ & strUser)
. Cellen (iRow, 1) = objUser.CN
. De cellen (iRow, 2) = objUser.EmailAddress
irow=irow + 1
Next
.Columns (1) .entirecolumn.autofit
End met
Set objExcel = Nothing
Set objGroup = niets


But kregen een fout online 3 verklarend dat het voorwerp niet kon worden gevonden. Maar daar uitblinken installed.

Any? Dit is eerder belangrijk. Thanks.

Antwoord : Hoe te om distributieslijsten van actieve folder uit te voeren

Jammer genoeg, als programmeur, denk ik ik 100% kan zeggen dat deze functionaliteit aan de betrokken toepassing wordt ingebouwd (die is waarom u het niet op elke toepassing krijgt).  In termen van het draaien van het van kan ik geen methode vinden om dit toe te staan en ik denk niet het mogelijk is.  Het enige ding u kunt verhinderen is vensters die spronglijsten gebruiken om onlangs geopende documenten/websites te tonen.  Laat me weten of is dit nuttig en ik zal verklaren hoe te om deze uit te zetten.  Voor de lijsten van de toepassingssprong het als u kijkt zijn geplakt met hen ik ben bang.

Achting,

Ady