Frage : Vbs Index, zum des Gruppenmitgliedschaftszählimpulses zu erhalten. Erhält nicht tatsächlichen Zählimpuls für einige Gruppen.

Hallo,

Vbs Index, zum des Gruppenmitgliedschaftszählimpulses zu erhalten. Erhält tatsächlichem Zählimpuls für irgendein groups.
For einige Gruppen nicht, die 0 sind, das, es dem vorher gescannte Gruppe no's

Can jedermann Hilfe erhält, um das issue.

REgards
sharath zu regeln 
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:
6:
37:
38:
39:
40:
41:

On Störungs-Zusammenfassung zunächst
 
Const ADS_SCOPE_SUBTREE = 2
 
objConnection = CreateObject („ADODB.Connection“) einstellen
objCommand = CreateObject („ADODB.Command“) einstellen
objConnection.Provider = „ADsDSOObject“
objConnection.Open „aktiver Verzeichnis-Versorger“
Einstellen objCommand.ActiveConnection = objConnection
 
objCommand.Properties („Seiten-Größe“) = 1000
objCommand.Properties („Searchscope“) = ADS_SCOPE_SUBTREE 
 
domainPath = „DC=lth, Dc=local“
orgUnitPathForGroups = „OU=Distri, OU=Offices“
 
objCommand.CommandText = _
    „AUSERWÄHLTER Name VON „LDAP: /“ u. orgUnitPathForGroups u. „,“ u. domainPath u. „“ WO objectCategory='group'"  
objGroupRecordSet = objCommand.Execute einstellen
 
objGroupRecordSet.MoveFirst
Bis objGroupRecordSet.EOF tun
    
 
    objGroup = GetObject _ einstellen
      („LDAP: //cn=“ u. objGroupRecordSet.Fields („Name“). Bewerten u.“, „u. orgUnitPathForGroups u.“, „u. domainPath)
    objGroup.GetInfo
 
    arrMemberOf = objGroup.GetEx („Mitglied“)
 
    I = 0
'WScript.Echo „Mitglieder: “
    Für jedes strMember im arrMemberOf
'WScript.echo „„u. strMember
        I = i+1
    Zunächst
 
    Wscript.Echo „Gruppe: [“ u. objGroupRecordSet.Fields („Name“). Wert u.“] Mitglieder: „u. i
 
    objGroupRecordSet.MoveNext
Schleife

Antwort : Vbs Index, zum des Gruppenmitgliedschaftszählimpulses zu erhalten. Erhält nicht tatsächlichen Zählimpuls für einige Gruppen.

Das Update unten bringt vollständige Schnüre zusammen


hth

Dave

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

ub createhyperlink ()
    Schwaches WS als Arbeitsblatt
    Schwaches ws1 als Arbeitsblatt
    Schwaches rng als Strecke
    Schwaches c als Strecke
    Schwaches rng2 als Strecke

    Einstellen WS = Blätter („Sheet1“)
    Einstellen ws1 = Blätter („Sheet2“)
    Rng = ws1.Range einstellen („a2: “ U. ws1.Cells (Cells.Rows.Count, „A“). Ende (xlUp). Reihe)

    Für jedes c im rng
    Wenn c.Value <> "" dann
        x = c.Value
        Einstellen rng2 = WS. Spalten (1).Find (was: =x, nachher: =ws. Zellen (1), LookIn: =xlFormulas, LookAt: =xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False, SearchFormat: =False)
        Wenn nicht rng2 nichts dann Anker WS-. Hyperlinks.Add ist: =c, Adresse: = "", Subadresse: = "" u. WS. Name u. „!“ u. rng2.Address (0, 0) u. "", TextToDisplay: =c.Value
        Beenden wenn
    Folgendes c
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us