' Index class= " fängt hier an
Schwaches objGroup, objUser, objFSO, objFile, strDomain, strGroup, Gebiet, Gruppe
'Änderungs-Domain Name zum Namen des Gebietes die Gruppe ist innen
strDomain = Inputbox („die benötigten“, „Rückstellungsdomain name“ Daten einbringen das Domain Name“, „)
'GroupName zum Namen der Gruppe ändern, deren Mitglieder Sie exportieren möchten
strGroup = InputBox („die benötigten“, „Ersatzgruppedaten einbringen den Gruppennamen“, „Name“)
objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
'Auf folgenden Zzeilenwechsel werden der Name und der Weg der Akte, die Daten exportieren, zu geschrieben.
Gesetztes objFile = objFSO.CreateTextFile („C:\“ u. strGroup u.“ - Members.txt ")
objGroup = GetObject einstellen („WinNT: /“ u. strDomain u. „/“ u. strGroup u. „, Gruppe“)
Für jedes objUser in objGroup.Members
objFile.WriteLine objUser.Name u. „-“ u. objUser.Class
Zunächst
objFile.Close
Gesetztes objFile = nichts
objFSO einstellen = nichts
objUser einstellen = nichts
objGroup einstellen = nichts
Wscript.Echo „getan“
Wscript.Echo „überprüfen bitte das c: für Ihre Ausgabedatei“
|