Vraag : Het manuscript van Vbs om de telling van het groepslidmaatschap te krijgen. Krijgt geen daadwerkelijke telling voor sommige groepen.

Hallo, manuscript

Vbs om de telling van het groepslidmaatschap te krijgen. Krijgt geen daadwerkelijke telling voor één of andere groups.
For sommige groepen die 0 zijn het de eerder afgetaste groep no's

Can iedereen hulp ertoe brengt om issue.

REgards
sharath te bevestigen
" codeBody " 
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:
de 
On hervat daarna
 
Const ADS_SCOPE_SUBTREE = 2
 
Vastgestelde objConnection = CreateObject („ADODB.Connection“)
Reeks objCommand = CreateObject („ADODB.Command“)
objConnection.Provider = „ADsDSOObject“
objConnection.Open de „Actieve Leverancier van de Folder“
Vastgesteld objCommand.ActiveConnection = objConnection
 
objCommand.Properties (de „Grootte van de Pagina“) = 1000
objCommand.Properties („Searchscope“) = ADS_SCOPE_SUBTREE 
 
domainPath = „DC=lth, Dc=local“
orgUnitPathForGroups = „OU=Distri, OU=Offices“
 
objCommand.CommandText = _
    „UITGEZOCHTE Naam VAN „LDAP: /“ & orgUnitPathForGroups & „,“ & domainPath & „“ WAAR objectCategory='group'"  
Reeks objGroupRecordSet = objCommand.Execute
 
objGroupRecordSet.MoveFirst
Doe tot objGroupRecordSet.EOF
    
 
    Plaats objGroup = GetObject _
      („LDAP: //cn=“ & objGroupRecordSet.Fields („Naam“). Waarde &“, „& orgUnitPathForGroups &“, „& domainPath)
    objGroup.GetInfo
 
    arrMemberOf = objGroup.GetEx („lid“)
 
    i = 0
Leden 'WScript.Echo „: “
    Voor Elke strMember in arrMemberOf
'WScript.echo „„& strMember
        i = i+1
    Daarna
 
    Wscript.Echo „groepeer me: [“ & objGroupRecordSet.Fields („Naam“). Taxeer &“] Leden: „& I
 
    objGroupRecordSet.MoveNext
Lijn

Antwoord : Het manuscript van Vbs om de telling van het groepslidmaatschap te krijgen. Krijgt geen daadwerkelijke telling voor sommige groepen.

De update zal hieronder gehele koorden aanpassen


hth

Dave

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

ub createhyperlink ()
    Schemerige ws als Aantekenvel
    Schemerige ws1 als Aantekenvel
    Schemerige rng als Waaier
    Schemerig c als Waaier
    Schemerige rng2 als Waaier

    Vastgesteld ws = Bladen („Sheet1“)
    Reeks ws1 = Bladen („Sheet2“)
    Reeks rng = ws1.Range („a2: “ & ws1.Cells (Cells.Rows.Count, „A“). Eind (xlUp). Rij)

    Voor Elk c in rng
    Als c.Value <> "" toen
        x = c.Value
        Reeks rng2 = ws. Kolommen (1). Vind (wat: =x, na: =ws. Cellen (1), LookIn: =xlFormulas, LookAt: =xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False, SearchFormat: =False)
        Als niet rng2 niets toen ws. Anker Hyperlinks.Add is: =c, Adres: = "", SubAddress: = "" & ws. Naam & „!“ & rng2.Address (0, 0) & "", TextToDisplay: =c.Value
        Eind als
    Volgende c
Sub van het eind
Andere oplossingen  
 
programming4us programming4us