VBScript Benutzer und GruppenNeue Gruppe anlegen

VBScript http://www.kohnlehome.de/w2kprof/vbs_BenutzerUndGruppen.pdf

VBScript Benutzer und Gruppen Neue Gruppe anlegen

Dim objComputer Dim objGruppe

Set objComputer = GetObject("WinNT://Rechnername")

Set objGruppe = objComputer.Create("group","NeueGruppe") objGruppe.SetInfo

Benutzer als Mitglied zu Gruppe hinzufügen

Dim objComputer Dim objGruppe

Set objComputer = GetObject("WinNT://Rechnername")

Set objGruppe = objComputer.GetObject("group","GruppenName") objGruppe.Add "WinNT://ARBEITSGRUPPE/RECHNERNAME/Benutzername"

Gruppen anzeigen

Dim objComputer Dim objGruppe Dim strText

Set objComputer = GetObject("WinNT://Rechnername") objComputer.Filter = Array("group")

For each objGruppe in objComputer

strText = strText & objGruppe.Name & vbCr Next

Mitglieder einer Gruppe anzeigen

Dim objComputer Dim objGruppe Dim objMitglied Dim strText

Set objComputer = GetObject("WinNT://Rechnername")

Set objGruppe = objComputer.GetObject("group","GruppenName") For each objMitglied in objGruppe.Members

strText = strText & objMitglied.ADsPath & vbCr Next

Franz Kohnle Seite 1 von 1 15.11.2004