删除本地管理者組中除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，如需轉載請自行聯系原作者