Pytanie : Dlaczego dystrybucja lista od aktywny książka telefoniczna

Hello
I am w potrzbie użytkownik od mój wiele distro lista w format który być wiele. I używać the następujący:
Set oRootDSE = GetObject ("LDAP: //RootDSE " )
strBase = "gContext") & ">; "
strFilter =" (& (objectclass=group) (sAMAccountType=268435457)); "
strAttrs = "distinguishedName; "
strScope = "subtree "

Set objConn = CreateObject ("ADODB.Connection")
objConn.Provider = "ADsDSOObject "
objConn.Open "Aktywny Adresowy Dostawca "
Set objRS = objConn.Execute (strBase & strFilter & strAttrs & strScope)

objRS.MoveFirst
Dim objGroup
While Nie objRS.EOF
Ustalony objGroup = GetObject ("LDAP: /" & Zamieniać (objRS.Fields ((0)). Value, "/", "\ /"))
WScript.Echo "------------------------------------------------------- "
WScript.Echo "Łączyć DN: " & objGroup.distinguishedName
WScript.Echo "Grupa Imię: " & objGroup.sAMAccountName
WScript.Echo "Członek…."
groupMembers = objGroup.member
Jeżeli IsEmpty (groupMembers) Then
'Żadny groups.
ElseIf (TypeName (groupMembers) = "Sznurek") Then
echoDetails (Zamieniać (groupMembers,"/"," \/"))
Else
Dla/") strGroup W groupMembers
echoDetails (Zamieniać (strGroup,"/"," \/"))
Next
Końcówka If
WScript.Echo "------------------------------------------------------- "
WScript.Echo ""
objRS.MoveNext
Wend

Sub echoDetails (strMemberDN)
'USE JEDEN THE TRZY ECHOWY OŚWIADCZENIE TUTAJ TWÓJ POTRZEBA…
Ustalony objMember = GetObject ("LDAP: /" & strMemberDN)
'WScript.Echo "…." & objMember.givenName & ""& objMember.sn
'WScript.Echo"…."& objMember.name
WScript.Echo"…."& objMember.cn
End Sub


This ciągnienie robić użytkownik I potrzebować ono tak daleko jak w górę the użytkownik. Ale ono otwierać csv w jednostka podpowiedź pudełko zamiast kładzenie w txt lub csv… Wydajność potrzebować niektóre poniekąd wydajność?

I także próbować/>I:

Dim objGroup, objExcel, iRow, strUser
Set objGroup = GetObject ("LDAP: //CN=Distribution Lista, ou=all_staff, dc=winningtech, dc=local")
Set objExcel = CreateObject ("Excel.Application")
With objExcel
.SheetsInNewWorkbook = 1
. Workbooks.Add
. Widoczny = True
. Worksheets.Item (1).Name = w połowie (objGroup.Name, instr ((1), objGroup.Name, "=") + 1) 'set Worksheet imię 1) the DL
irow=1
Dla To strUser w objGroup.Member
Ustalony objUser = GetObject ("LDAP: /" & strUser)
. Komórka (iRow, 1) = objUser.CN
. Komórka (iRow, 2) = objUser.EmailAddress
irow=irow + 1
Next
.Columns (1).entirecolumn.autofit
End Z
Set objExcel = Nothing
Set objGroup = 2)


But dostać błąd online 3 że the przedmiot móc znajdować. Ale tam  być przodować installed.

Any pomysł? To być raczej znacząco. Thanks.

Odpowiedź : Dlaczego dystrybucja lista od aktywny książka telefoniczna

Niestety, jako programista, I myśleć I móc 100% że ten funkcjonalność budować wewnątrz the zastosowanie dotyczyć (che być dlaczego ty dostawać ono na każdy zastosowanie).  Pod względem kręcenie ono daleko I móc żadny metoda ono i I myśleć ono być ewentualny.  The jedyny rzecz ty móc być okno using skok lista ostatnio rozpieczętowany dokument/strona internetowa.  Pozwalać jeżeli te być pożytecznie i I wyjaśniać dlaczego wyjaśniać daleko.  Dla podaniowy skakać lista ono patrzeć jakby ty wtykać z I być przestraszony.

Uwzględnienie,

Ady