Question : Comment exporter des DGs Télécommunications à partir de l'annuaire actif

Hello
I AM nécessitant exporter des utilisateurs de mes beaucoup de listes de distro dans un format qui est lisible. J'ai employé ce qui suit : oRootDSE du
Set = GetObject (« LDAP : //RootDSE
)/>strBase = «  d'oRootDSE.get (« defaultNamingContext ») et « > ; « 
strFilter = » (et (objectclass=group) (sAMAccountType=268435457)) ; « 
strAttrs = « distinguishedName ; « 
strScope = « sous-arbre " objConn du
Set du
=
tion »)/>objConn.Provider = « fournisseur actif " objRS d'annuaire du "
objConn.Open « d'ADsDSOObject du
Set = objGroup réglé de l'objGroup
While pas objRS.EOF
du
objRS.MoveFirst
Dim du
d'objConn.Execute (strBase et strFilter et strAttrs et strScope) = GetObject (« LDAP : / » et remplacer (objRS.Fields (0). Value, « / », « \
WScript.Echo du /")) « -------------------------------------------------------le le "
WScript.Echo « s'est relié pour grouper le DN :  » et objGroup.distinguishedName/>
WScript.Echo « ….« groupMembers du
= objGroup.member
s'IsEmpty (groupMembers) Then
'aucuns echoDetails de groups.
ElseIf (TypeName (groupMembers) = « corde ») Then
(remplacer (groupMembers, »/« , » \/")) le
Else
pour chaque strGroup dans des echoDetails du groupMembers
(remplacer (strGroup, »/« , » \/")) l'extrémité If
WScript.Echo du
Next
« -------------------------------------------------------
'UTILISATION UNE d'echoDetails du
Sub du
objRS.MoveNext
Wend
de "" du
WScript.Echo du (" strMemberDN) des TROIS RAPPORTS d'ÉCHO ICI D'ADAPTER à VOTRE objMember du
des BESOINS… = GetObject réglés (« LDAP : / » et
'WScript.Echo « de strMemberDN)…. » et objMember.givenName et « « et objMember.sn
'WScript.Echo »….« et objMember.name
WScript.Echo »….« et les tractions d'objMember.cn
End Sub


This fait ce que j'ai besoin de lui pour faire jusque tirer vers le haut les utilisateurs. Mais il les ouvre vers le haut dans de différentes boîtes promptes au lieu de les mettre dans un txt ou un csv… Qu'aurait besoin supplémentaire pour faire une certaine sorte du rendement ? le

I a également essayé ceci : objGroup du

Dim, objExcel, iRow, objGroup du strUser
Set = GetObject (« LDAP : liste de //CN=Distribution, ou=all_staff, dc=winningtech, objExcel du
Set du dc=local ») = objExcel
de
With de CreateObject (« Excel.Application ») .SheetsInNewWorkbook = 1
. Workbooks.Add
. Évident = True
. Worksheets.Item (1).Name = mi (objGroup.Name, instr (1, objGroup.Name, « =") + 1) 'a placé le nom de feuille de travail à celui du
de DL
irow=1 pour chaque strUser dans l'objUser réglé d'objGroup.Member
= le GetObject (« LDAP : / » et
de strUser). Cellules (iRow, 1) = objUser.CN
. Cellules (iRow, 2) = irow=irow d'objUser.EmailAddress
+ 1
Next
.Columns (1).entirecolumn.autofit
End avec l'objExcel du
Set = l'objGroup de Nothing
Set = rien le


But a obtenu une erreur sur la ligne 3 déclarant que l'objet ne pourrait pas être trouvé. Mais là installed.

Any ? C'est plutôt important. Thanks. class= de

Réponse : Comment exporter des DGs Télécommunications à partir de l'annuaire actif

Malheureusement, comme programmeur, je pense que je peux 100% dire que cette fonctionnalité est incorporée à l'application concernée (ce qui est pourquoi vous ne l'obtenez pas sur chaque application).  En termes de la tourner au loin je peux trouver aucune méthode pour permettre ceci et moi ne penser que c'est possible.  La seule chose que vous pouvez empêcher est des fenêtres using des listes de saut pour montrer les documents/sites Web récemment ouverts.  Me faire savoir si c'est utile et j'expliquerai comment arrêter ces derniers.  Pour l'application sauter les listes qu'elle regarde comme vous êtes coincé avec elles j'ai peur.

Respect,

Ady