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” 博客，谢绝转载！
原文：http://ericfu.blog.51cto.com/416760/1643724