[VBS-Snippet] Benutzer und Gruppen auslesenn

[kInGoFcHaOs]

' 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