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
本文转自 bilinyee博客，原文链接： http://blog.51cto.com/ericfu/1643724 如需转载请自行联系原作者
