Vraag : De Hulp van de Code VBS

Hallo die hebben allen,

I niet de vaardigheid wordt vereist om mijn verzoek te voltooien en ik zoek wat wie me.

I doen helpen zijn gevraagd om alle groepenleden in een lijst evenals alle aandelen te verstrekken en welke groepen en gebruikers zij bevatten. Er is een significante hoeveelheid gebruikers en groepen zodat zoek ik een manuscript om process.

I te vereenvoudigen vond dit manuscript dat om de groepsnaam vraagt zijn ingegaan die werkt maar ik zou willen het onderstaande manuscript een tekstdossier lezen dat alle groepsnamen daarin bevat en ontleedt elke die groep aan een tekstdossier in een folder C:\Members

Essentially I wordt genoemd behoefte alle output van groepenleden aan een afzonderlijk tekstdossier aan recentere review.

Thanks

AI-SYD



Thank u.
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
" notpretty " 
 ' Manuscript begint hier
Schemerige objFile objGroup, objUser, objFSO, strDomain, strGroup, Domein, Groep
De 'verandering DomainName in de naam van het domein de groep is in
strDomain = Inputbox („ga de naam van het Domein“, „nodig Gegevens“, „Standaarddomeinnaam in“)
'Verandering GroupName in de naam van de groep van wie leden wilt uitvoeren u
strGroup = InputBox („ga de naam van de Groep“, „nodig Gegevens“, „Standaardgroepsnaam in“)
Plaats objFSO = CreateObject („Scripting.FileSystemObject“)
'Op de volgende lijn verander de naam en de weg van het dossier dat gegevens uitvoert zal worden geschreven aan.
Vastgestelde objFile = objFSO.CreateTextFile („C:\“ & strGroup &“ - Members.txt ")
Reeks objGroup = GetObject („WinNT: /“ & strDomain & „/“ & strGroup & „, groep“)
Voor Elke objUser in objGroup.Members
    objFile.WriteLine objUser.Name & „-“ & objUser.Class
Daarna
objFile.Close
Vastgestelde objFile = niets
Reeks objFSO = niets
Reeks objUser = niets
Reeks objGroup = niets
Wscript.Echo „Gedaan“
Wscript.Echo „te controleren gelieve c: voor uw outputdossier“

Antwoord : De Hulp van de Code VBS

Hallo Kenny,

U kunt een GPO gebruiken om statische (het zelfde) ntfs toestemmingen op a aan folders vanaf deze verbinding toe te passen: http://technet.microsoft.com/en-us/library/cc756952(WS.10).aspx

Of omgekeerd, kunt u SubinACL (een deel van de venstersondersteuningsmiddelen om toestemmingen te vinden en te vervangen) gebruiken: hier verstrekte syntaxis: http://www.robvanderwoude.com/subinacl.php
Andere oplossingen  
 
programming4us programming4us