Pytanie : Vbs pismo grupowy członkostwo obliczenie. Dostawać faktyczny obliczenie dla niektóre grupa.

Cześć,

Vbs pismo grupowy członkostwo obliczenie. Dostawać faktyczny obliczenie dla niektóre groups.
For niektóre grupa który być (0) ono dostawać the poprzednio skanować grupowy no's

Can anyone pomoc the issue.

REgards
sharath 
(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:

On Błąd Życiorys Następnie
 
Const ADS_SCOPE_SUBTREE = 2
 
Ustalony objConnection = CreateObject ("ADODB.Connection")
Ustalony objCommand = CreateObject ("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Aktywny Adresowy Dostawca"
Set objCommand.ActiveConnection = objConnection
 
objCommand.Properties ("Strona Rozmiar") = 1000
objCommand.Properties ("Searchscope") = ADS_SCOPE_SUBTREE 
 
domainPath = "DC=lth, Dc=local"
orgUnitPathForGroups = "OU=Distri, OU=Offices"
 
objCommand.CommandText = _
    "WYBRANY Imię OD "LDAP: /" & orgUnitPathForGroups & "," & domainPath & "" DOKĄD objectCategory='group'"  
Ustalony objGroupRecordSet = objCommand.Execute
 
objGroupRecordSet.MoveFirst
Do objGroupRecordSet.EOF
    
 
    Ustawiać objGroup = GetObject _
      ("LDAP: //cn=" & objGroupRecordSet.Fields ("Imię"). Cenić &", "& orgUnitPathForGroups &", "& domainPath)
    objGroup.GetInfo
 
    arrMemberOf = objGroup.GetEx ("członek")
 
    i = (0)
'WScript.Echo "Członek: "
    Dla ArrMemberOf strMember w arrMemberOf
'WScript.echo ""& strMember
        i = i+1
    Następnie
 
    Wscript.Echo "Grupa: [" & objGroupRecordSet.Fields ("Imię"). Wartość &"] Członek: "& i
 
    objGroupRecordSet.MoveNext
Pętla

Odpowiedź : Vbs pismo grupowy członkostwo obliczenie. Dostawać faktyczny obliczenie dla niektóre grupa.

The aktualizacja sznurek dopasowywać cały sznurek


hth

Dave

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

ub createhyperlink ()
    Ciemnawy ws Jako Worksheet
    Ciemnawy ws1 Jako Worksheet
    Ciemnawy rng Pasmo
    Ciemnawy c Pasmo
    Ciemnawy rng2 Pasmo

    Set ws = Ciąć na arkusze ("Sheet1")
    Set ws1 = Ciąć na arkusze ("Sheet2")
    Ustalony rng = ws1.Range ("a2: " & ws1.Cells (Cells.Rows.Count, "A"). Końcówka (xlUp). Rząd)

    Dla Rng c W rng
    Jeżeli c.Value <> "" Wtedy
        x = c.Value
        Set rng2 = ws. Kolumna (1).Find (Co: =x, póżniej: =ws. Komórka (1), LookIn: =xlFormulas, LookAt: =xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False, SearchFormat: =False)
        Jeśli nie rng2 Być Nic Wtedy ws. Hyperlinks.Add Kotwica: =c, Adres: = "", SubAddress: = "" & ws. Imię & "!" & rng2.Address ((0), (0)) & "", TextToDisplay: =c.Value
        Kończyć Jeżeli
    Następny c
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us