Code:' Region Description ' ' Name: HOWTO: Benuzer, Benutzergruppen Auslesen unter VBS ' Author: kInGoFcHaOs ' Version: 0.1 ' Description:Benuzer, Benutzergruppen Auslesen unter VBS ' ' ' EndRegion Dim Domaenen, Domaene Dim DomaenenComputer, GruppenBenutzer, mitglied Set Domaenen = GetObject("WinNT:") For Each Domaene In Domaenen WScript.Echo Domaene.Name Set DomaenenComputer = GetObject ("WinNT://" & Domaene.Name) DomaenenComputer.filter = Array("Computer") For Each Computer In DomaenenComputer WScript.Echo "->" & Computer.Name Set GruppenBenutzer = GetObject ("WinNT://" & Computer.Name) GruppenBenutzer.Filter = Array("User", "Group") For Each mitglied In GruppenBenutzer WScript.Echo " -> " & mitglied.Name & _ " (" & mitglied.Class & ")" Next Next Next