删除本地管理员组中除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 

本文转自wangtingdong 51CTO博客，原文链接：http://blog.51cto.com/tingdongwang/912964，如需转载请自行联系原作者