'*** v8.1 *** www.dieseyer.de ******************************** ' ' Datei: lokalegruppen.vbs ' Autor: dieseyer@gmx.de ' Auf: www.dieseyer.de ' ' Microsoft: The Portable Script Center - v3.0, Nov. 2004 ' "List Local Groups and Their Members" ' '************************************************************ Option Explicit Dim strComputer strComputer = "." strComputer = "atl-win2k-01" strComputer = WScript.CreateObject("WScript.Network").ComputerName MsgBox "Auf """ & strComputer & """ vorhandene lokale Gruppen und deren Mitglieder:" & vbCRLF & LokaleGruppen( strComputer ), , WScript.ScriptName WScript.Quit '*** v8.1 *** www.dieseyer.de ***************************** Function LokaleGruppen( PCname ) '********************************************************* Dim colGroups : Set colGroups = GetObject("WinNT://" & strComputer & "") Dim objGroup, objUser Dim i, Txt colGroups.Filter = Array("group") For Each objGroup In colGroups i = i + 1 Txt = Txt & vbCRLF & i & " - " & objGroup.Name For Each objUser in objGroup.Members Txt = Txt & vbCRLF & vbTab & objUser.Name Next ' MsgBox Txt, ,"Gruppe " & i Next ' MsgBox Txt, , "ENDE" LokaleGruppen = Txt End Function ' LokaleGruppen( PCname )