strComputer = "."
Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators")
For Each objUser In objGroup.Members
If objUser.Name <> "Administrator" Then
objGroup.Remove(objUser.AdsPath)
End If
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，如需转载请自行联系原作者
