'
'Lokale Gruppen und deren Mitglieder realtime auf
einem Server auflisten
'
'Erstellt: compudwarf
(http://www.geocities.com/compudwarf)
28.01.2005
'
'Dieses Zeilen müssen im Notepad mit der Endung .vbs
abgespeichert werden, danach kann das
'Script durch Doppelklick ausgeführt werden
'
Dim shell
Dim FiSyOb
Dim File
Set FiSyOb = CreateObject("Scripting.FileSystemObject")
Set File =
FiSyOb.CreateTextFile("Resultat_LokaleGruppen.txt", True)
strComputer = InputBox("Bitte geben Sie den
Servernamen ein und warten Sie, bis sich das Text-File mit den Ergebnissen
automatisch öffnet.")
Set colGroups = GetObject("WinNT://" & strComputer
& "")
colGroups.Filter = Array("group")
File.writeLine(" ")
File.writeLine("Lokale Gruppen eines Servers und
deren Mitglieder")
File.writeLine(" ")
File.writeLine(" ")
File.writeLine("Dieses Text-File wurde am
gleichen Ort, wo Sie das Script gestartet haben abgespeichert.")
File.writeLine("Name des Files:
Resultat_LokaleGruppen.txt")
File.writeLine(" ")
File.writeLine("--------------------------------------------------------------------------------------------")
File.writeLine(" ")
File.writeLine("Server: " & strComputer)
File.writeLine(" ")
File.writeLine("Datum: " & Now)
File.writeLine(" ")
File.writeLine("--------------------------------------------------------------------------------------------")
File.writeLine(" ")
File.writeLine(" ")
For Each objGroup In colGroups
File.writeLine("
")
File.writeLine("
")
File.writeLine("
")
File.writeLine
("Gruppenname: " & objGroup.Name)
File.writeLine("---------------------------------")
For Each objUser in
objGroup.Members
File.writeLine
(objUser.name)
Next
Next
File.writeLine(" ")
File.writeLine(" ")
File.writeLine("--------------------------------------------------------------------------------------------")
File.writeLine(" ")
File.writeLine(" Gewählter Server: " & strComputer)
File.writeLine(" ")
File.writeLine("--------------------------------------------------------------------------------------------")
File.writeLine(" ")
Set shell = CreateObject("WScript.Shell")
shell.Run "Resultat_LokaleGruppen.txt"