Lokale Administratoren - alle User u. Gruppen loeschen ausser UserX u. UserY

Hallo,

ich habe Scripte um User in der AD anzulegen; Ebenso um User bzw. Gruppen zu löschen.

Was ich jedoch brauche und nicht gebacken bekommen, ist ein Script, dass eine Filterfunktion beinhaltet.

In anderen Worten: Das Script soll mir alle Mietglieder (sei es User oder Gruppen) aus einer Gruppe löschen ausser USER_X und USER_Y.
Es geht um lokale ComputerGruppen wie zB "Hauptbenutzer"

Vielen Dank im Vorraus für die ein oder andere Hilfe.

MfG,
Dimi

strKeep = LCase("#USER_X#USER_Y#")  
strComputer = "."  

Set objGroup = GetObject("WinNT://" & strComputer & "/Hauptbenutzer,group")  
For Each objMember In objGroup.Members
    N = objMember.Name
    If InStr(strKeep, "#" & LCase(N) & "#") = 0 Then  
        WScript.Echo "Entferne: " & N  
        objGroup.Remove objMember.ADsPath
    End If
Next