class= " lineNumbers " del
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
|
class= del
el id= " codeSnippet939755 " class= " del ' escritura comienza aquí
objGroup dévil, objUser, objFSO, objFile, strDomain, strGroup, dominio, grupo
El 'Domain Name del cambio al nombre del dominio el grupo está adentro
strDomain = Inputbox (“incorporar el Domain Name”, los “datos necesarios”, el “Domain Name del defecto”)
'Cambiar GroupName al nombre del grupo cuyos miembros usted quiere exportar
strGroup = InputBox (“incorporar el nombre de grupo”, los “datos necesarios”, “el nombre de grupo de defecto”)
Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)
'En la línea cambio siguiente el nombre y la trayectoria del archivo que exporta datos serán escritos a.
objFile determinado = objFSO.CreateTextFile (“C:\” y strGroup y” - Members.txt ")
Fijar el objGroup = GetObject (“WinNT: /” y strDomain y “/” y strGroup y “, grupo”)
Para cada objUser en objGroup.Members
objFile.WriteLine objUser.Name y “-” y objUser.Class
Después
objFile.Close
objFile determinado = nada
Fijar el objFSO = nada
Fijar el objUser = nada
Fijar el objGroup = nada
Wscript.Echo “hechos”
Wscript.Echo “comprueban por favor la c: para su archivo de salida”
|