'
'Gruppenmitgliedschaften in lokalen Gruppen eines
Users in Realtime auf einem Server auflisten,
'das Ergebnis in einer Textdatei abspeichern und die
Textdatei automatisch im Notepad öffnen
'
'Erstellt: compudwarf
(http://www.geocities.com/compudwarf) 28.01.2005
'
'Alle Zeilen in einen Notepad reinkopieren und dann
mit der Endung .vbs abspeichern, danach kann das vbs-File ausgeführt werden
'
'
Dim FiSyOb
Dim File
Dim shell
Set FiSyOb = CreateObject("Scripting.FileSystemObject")
Set File = FiSyOb.CreateTextFile("Resultat_Usermitgliedschaft_pro_Server.txt",
True)
strComputer = InputBox("Bitte geben Sie den
Servernamen ein.")
strPID = InputBox("Benutzername eingeben (Gross-
und Kleinschreibung unbedingt einhalten, da sonst nicht funktionsfähig!!!).
Warten Sie nach dem Drücken des OK-Buttons, bis sich das Text-File mit den
Ergebnissen automatisch öffnet.")
Set colGroups = GetObject("WinNT://" & strComputer
& "")
colGroups.Filter = Array("group")
File.writeLine(" ")
File.writeLine(" ")
File.writeLine("Dieses Text-File wurde am
gleichen Ort abgespeichert, wo Sie das Script gestartet haben.")
File.writeLine("Name des Files:
Resultat_LokaleGruppen.txt")
File.writeLine(" ")
File.writeLine("--------------------------------------------------------------------------------------------------")
File.writeLine(" ")
File.writeLine("Benutzer: " & strPID & " auf "
& strComputer)
File.writeLine(" ")
File.writeLine("Datum: " & Now)
File.writeLine(" ")
File.writeLine("--------------------------------------------------------------------------------------------------")
File.writeLine(" ")
File.writeLine(" ")
File.writeLine(" ")
File.writeLine(" ")
File.writeLine("Gruppenmitgliedschaften für " & strPID
& " (falls hier nichts erscheint, bestehen keine
Mitgliedschaften):")
File.writeLine("
")
For Each objGroup
In colGroups
For Each objUser in objGroup.Members
If objUser.name =
strPID Then
File.writeLine(objGroup.Name)
End If
Next
Next
File.writeLine(" ")
File.writeLine(" ")
File.writeLine(" ")
File.writeLine(" ")
File.writeLine(" ")
File.writeLine("--------------------------------------------------------------------------------------------------")
File.writeLine("Ende Liste")
Set shell = CreateObject("WScript.Shell")
shell.Run
"Resultat_Usermitgliedschaft_pro_Server.txt"