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
il id= " codeSnippet939755 " class= " del ' scritto comincia qui
objGroup fioco, objUser, objFSO, objFile, strDomain, strGroup, dominio, gruppo
'Il Domain Name del cambiamento al nome del dominio il gruppo è dentro
strDomain = Inputbox (“digitare il Domain Name„, “i dati stati necessari„, “il Domain Name di difetto„)
'Cambiare GroupName al nome del gruppo di cui i membri volete esportare
strGroup = InputBox (“digitare il nome di gruppo„, “i dati stati necessari„, “il nome di gruppo di difetto„)
Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)
'Sulla linea cambiamento seguente il nome ed il percorso della lima che esporta i dati saranno scritti a.
objFile stabilito = objFSO.CreateTextFile (“C:\„ & strGroup &„ - Members.txt ")
Regolare il objGroup = GetObject (“WinNT: /„ & strDomain & “/„ & strGroup & “, gruppo„)
Per ogni objUser in objGroup.Members
objFile.WriteLine objUser.Name & “-„ & objUser.Class
Dopo
objFile.Close
objFile stabilito = niente
Regolare il objFSO = niente
Regolare il objUser = niente
Regolare il objGroup = niente
Wscript.Echo “fatti„
Wscript.Echo “controllano prego la c: per il vostro archivio di uscita„
|