Question : Manuscrit de Vbs pour obtenir le compte d'adhésion de groupe. N'obtient pas le compte réel pour quelques groupes.

Bonjour, manuscrit du

Vbs pour obtenir le compte d'adhésion de groupe. N'obtient pas à compte réel pour un certain groups.
For quelques groupes qui sont 0 qu'il obtient au no's

Can n'importe qui de groupe précédemment balayé l'aide de fixer l'issue.

REgards
sharath class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
résumé " de " codeSnippet777591 d'id= " de 
On de class= après
 
Const ADS_SCOPE_SUBTREE = 2
 
Placer l'objConnection = le CreateObject (« ADODB.Connection »)
Placer l'objCommand = le CreateObject (« ADODB.Command »)
objConnection.Provider = « ADsDSOObject »
objConnection.Open « fournisseur actif d'annuaire »
Placer objCommand.ActiveConnection = objConnection
 
objCommand.Properties (« taille de page ») = 1000
objCommand.Properties (« Searchscope ») = ADS_SCOPE_SUBTREE 
 
domainPath = « DC=lth, Dc=local »
orgUnitPathForGroups = « OU=Distri, OU=Offices »
 
objCommand.CommandText = _
    « Nom CHOISI « de LDAP : / » et orgUnitPathForGroups et « , » et domainPath et «  » OÙ objectCategory='group'"  
Placer l'objGroupRecordSet = l'objCommand.Execute
 
objGroupRecordSet.MoveFirst
Faire jusqu'à objGroupRecordSet.EOF
    
 
    Placer l'objGroup = le _ de GetObject
      (« LDAP : //cn= » et objGroupRecordSet.Fields (« nom »). Évaluer et », « et les orgUnitPathForGroups et », « et le domainPath)
    objGroup.GetInfo
 
    arrMemberOf = objGroup.GetEx (« membre »)
 
    i = 0
'Membres de WScript.Echo « :  »
    Pour chaque strMember dans l'arrMemberOf
'WScript.echo « « et strMember
        i = i+1
    Après
 
    Groupe de Wscript.Echo « : [ » et objGroupRecordSet.Fields (« nom »). Valeur et »] membres : « et I
 
    objGroupRecordSet.MoveNext
Boucle
class= de

Réponse : Manuscrit de Vbs pour obtenir le compte d'adhésion de groupe. N'obtient pas le compte réel pour quelques groupes.

La mise à jour ci-dessous assortira les cordes entières


hth

Dave

1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :

createhyperlink d'ub ()
    Le faible WS comme feuille de travail
    Faible ws1 comme feuille de travail
    Faible rng comme gamme
    Faible c comme gamme
    Faible rng2 comme gamme

    Placer le WS = les feuilles (« Sheet1 »)
    Placer ws1 = feuilles (« Sheet2 »)
    Placer le rng = le ws1.Range (« a2 :  » Et ws1.Cells (Cells.Rows.Count, « A »). Extrémité (xlUp). Rangée)

    Pour chaque c dans le rng
    Si "" <> de c.Value alors
        X = c.Value
        Placer rng2 = le WS. Colonnes (1).Find (ce qui : =x, ensuite : =ws. Cellules (1), LookIn : =xlFormulas, LookAt : =xlWhole, SearchOrder : =xlByRows, SearchDirection : =xlNext, MatchCase : =False, SearchFormat : =False)
        Sinon rng2 n'est rien puis ancre du WS. Hyperlinks.Add : =c, adresse : = "", SubAddress : = "" et le WS. Nom et « ! » et rng2.Address (0, 0) et "", TextToDisplay : =c.Value
        Finir si
    Prochain c
Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us