Lösche alle eingerichteten User in einer Active Directory Gruppe

strNetBIOSDomain = “DOMAINNAME”
strGroupName = “GRUPPENNAME”

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

Share