class= " lineNumbers " de
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
|
class= de
l'id= " codeSnippet939755 " class= " de ' manuscrit commence ici
Faible objGroup, objUser, objFSO, objFile, strDomain, strGroup, domaine, groupe
Le 'Domain Name de changement au nom du domaine le groupe est dedans
strDomain = Inputbox (« saisir le Domain Name », les « données requises », le « Domain Name de défaut »)
'Changer GroupName en nom du groupe dont les membres vous voulez exporter
strGroup = InputBox (« saisir le nom de groupe », les « données requises », « le nom de groupe de défaut »)
Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject »)
'Sur la prochaine ligne changement le nom et le chemin du dossier qui exportent des données seront écrits à.
objFile réglé = objFSO.CreateTextFile (« C:\ » et strGroup et » - Members.txt ")
Placer l'objGroup = le GetObject (« WinNT : / » et strDomain et « / » et strGroup et « , groupe »)
Pour chaque objUser dans objGroup.Members
objFile.WriteLine objUser.Name et « - » et objUser.Class
Après
objFile.Close
objFile réglé = rien
Placer l'objFSO = rien
Placer l'objUser = rien
Placer l'objGroup = rien
Wscript.Echo « faits »
Wscript.Echo « vérifient svp le c : pour votre dossier de rendement »
|