Clean up administrators group

标签：clean up administrators group

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 
   

本文出自 “Erick WAY” 博客，谢绝转载！

Clean up administrators group

标签：clean up administrators group

原文地址：http://ericfu.blog.51cto.com/416760/1643724