Fråga : Hur man exporterar fördelningor listar från aktivarkiv

Den Hello
I förmiddagen i behov av att exportera användare från min många distroen listar in i en formatera som är läslig. Jag använde efter: oRootDSE för
Set = GetObject (”LDAP: //RootDSE
)/>strBase = ” för oRootDSE.get (”defaultNamingContext”) & ”>; ”
strFilter =” (& (objectclass=group) (sAMAccountType=268435457)); ”
strAttrs = ”distinguishedName; ”
strScope = ”subtree " objConn för
Set för
= CreateObject (”ADODB.Connection”)
objConn.Provider = ”familjeförsörjare " objRS för arkiv för aktiv för ADsDSOObject "
objConn.Open ”för
Set = objGroup för objGroup
While inte objRS.EOF
för
objRS.MoveFirst
Dim för
för objConn.Execute (strBasen & strFilter & strAttrs & strScope) fastställd = GetObject (”LDAP: /” & byt ut (objRS.Fields (0). Value, ”/”, ”\ /”))
WScript.Echo ”,------------------------------------------------------- "
WScript.Echo ”förband för att gruppera DN: ” & objGroup.distinguishedName/>
WScript.Echo ”….,”groupMembers för
= objGroup.member
, om IsEmpty (groupMembers) Then
'inga echoDetails för groups.
ElseIf (TypeName (groupMembers) = ”stränger”), Then
(byter ut (groupMembers,”/”,” \/”))
Else
för varje strGroup i echoDetails för groupMembers
(byt ut (strGroup,”/”,” \/ "))
Next
avslutar If
WScript.Echo ”,-------------------------------------------------------
'BRUK ETT för echoDetails för
Sub för
objRS.MoveNext
Wend
för "" för
WScript.Echo för (" strMemberDN) AV TRENA EKAR MEDDELANDEN HÄR för ATT PASSA DIN fastställda objMember för BEHOVS…
= GetObject (”LDAP: /” &
'WScript.Echo ”för strMemberDN)….,” & objMember.givenName & ””& objMember.sn
'WScript.Echo”….,”& objMember.name
WScript.Echo”….,”& handtag för objMember.cn
End Sub


This gör vad jag behöver den att göra så långt som dra upp användarena. Men det öppnar dem upp i individ som betalningspåminnelsen boxas, i stället för att sätta dem in i en txt eller en csv…, Vad skulle behov som tillfogades för att göra något att sortera av tillverkat?

I försökte också denna: objGroup för

Dim, objExcel, iRow, objGroup för strUser
Set = GetObject (”LDAP: //CN=Distribution listar, ou=all_staff, dc=winningtech, objExcel för
Set för dc=local”) = objExcel
för CreateObject (”Excel.Application”)
With .SheetsInNewWorkbook = 1
. Workbooks.Add
. Synligt = True
. Worksheets.Item (1). Känd = mitt- (objGroup.Name, + 1) 'fastställd arbetssedel som är känd till det av den DL
irow=1 för varje strUser i fastställd objUser för objGroup.Member
= GetObject (”LDAP: /” &
för strUser). Celler (iRow, 1) = objUser.CN
. Celler (iRow, 2) = irow=irow för objUser.EmailAddress
+ 1
Next
.Columns (1) .entirecolumn.autofit
End med objExcel för
Set = Nothing
Set objGroup = ingenting


But fick ett fel on-line 3 som påstår att anmärka inte kunde finnas. Men där är överträffar installed.

Any? Detta är ganska viktigt. Thanks. " klar "

Svar : Hur man exporterar fördelningor listar från aktivarkiv

Tyvärr som en programmerare, I-funderare jag kan något att säga 100% att denna funktionsduglighet byggs in till den angick applikationen (som är varför du inte får den på varje applikation).  I benämner av roterande det, av som jag kan finna ingen metod för att låta denna, och jag gör inte funderare det är möjligheten.  Det enda tinget som du kan förhindra, är fönster using hopp listar för att visa för en tid sedan öppnade dokument/websites.  Låt mig veta, om detta är användbart, och jag ska förklarar hur man vänder av dessa.  För applikation hoppet listar den ser något liknande som du klibbas med dem den rädda I-förmiddagen.

Hälsningar,

Ady