[Script] Remove usuários não essenciais do grupo SophosAdministrator

[marceloleaes]

Aos pessoal que vem de upgrades desde a versão 3 da Enterpise Console do Sophos sabe que nesta versão teve um problema chato que ao instalar a console todos os usuários do dominio foram adicionados ao grupo SophosAdministrator, lógico, já na versão 4 da console entrou em funcionamento o Tamper Protection que impede que os usuários removam os endpoints, para quem ficou com o AD "sujo" por assim dizer, pode usar o script abaixo para remover os usuários que não necessitam estar neste grupo.

Código: Selecionar todos

'==========================================================================
'
' NAME: cleansophosadmin.vbs
'
' AUTHOR: Joe McDonald , Sophos, Inc.
' DATE  : 5/24/2007
'
' COMMENT: Cleans all non-essential user accounts from the local
' SophosAdministrator group.  Leaves only local Administrator,
' SophosDomainAdministrator, Domain Admins, and NT AUTHORITY\SYSTEM
'
'==========================================================================

Option Explicit
On Error Resume Next

Const LocalGroup = "/SophosAdministrator"

Dim strComputer
Dim objNet
Dim objGroup
Dim objUser

Set objNet = WScript.CreateObject("WScript.Network")
	strComputer = objnet.ComputerName

Set objGroup = GetObject("WinNT://" & strComputer & LocalGroup)

For Each objUser In objGroup.Members
    If objUser.Name <> "Administrator" AND objUser.Name <> "SophosDomainAdministrator" AND objUser.Name <> "Domain Admins" AND objUser.name <> "SYSTEM" Then
        objGroup.Remove(objUser.AdsPath)
		objGroup.Add(objDomainGroup.AdsPath) 
    End If
Next

Fonte: M3Corp ( www.m3corp.com.br )