[VBS-Snippet] Benutzer und Gruppen auslesenn

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

---