В некоторых случаях необходимо чтобы чистилась группа "Администраторы". Для этого можно использовать скрипт:
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colAccounts = objWMIService.ExecQuery ("Select * From Win32_Group Where LocalAccount = TRUE And SID = 'S-1-5-32-544'")
For Each objAccount in colAccounts
AdmGrName = objAccount.Name
Next
Set GroupAdm = GetObject("WinNT://" & StrComputer & "/" & AdmGrName & ",group")
Set a = GroupAdm.members()
For Each b In a
c = b.Name
c = CStr(c)
Select Case c
Case "Domain Admins"
Case "Администратор"
Case "Administrator"
Case Else
GroupAdm.Remove b.ADsPath
End Select
Next
