Mit folgendem Script können für alle User in einer AD Gruppen (Member Of) entfernt werden

strNetBIOSDomain = “DOMAINNAME”
strGroup = “GROUPNAME”

Set grp = GetObject(“WinNT://” & strNetBIOSDomain & “/” & strGroup & “,group”)
For Each Usr In grp.Members
grp.Remove(Usr.AdsPath)
Next

Share