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，如需转载请自行联系原作者