删除本地管理员组中除Administrator以外的用户

strComputer = "."  
Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators")
For Each objUser In objGroup.Members
    If objUser.Name <> "Administrator" Then
        objGroup.Remove(objUser.AdsPath)      
    End If
Next
  

转载于:https://blog.51cto.com/tingdongwang/912964