Etrust 7.0 remote install

[gcw1]

Hello there,

Can anyone provide me with info on setting up remote install? I can get it to install the base product just fine, but figuring out how to get it to install patches is my issue. Thanks in advance.

Glenn

 

[anisioneto]

Apply patches in eTrust AV solutions befor r8 is not easy...
Some patches are executabels files for this you con do .bat file:

\\server\share\FIX.exe /s

For other paches you can automate by using VB script. Try this:

' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
' * *
' * * DetectVersion.vbs
' * *
' * * Verifica a versão do componente de descompactação do engine do eTrust 7.1
' * *
' * * Data: 2006-06-16
' * *
' * * Autor: Mario Cesar Simão Junior (suporte@mcom.com.br)
' * *
' * * Empresa: MCOM Tecnologia de Comunicação Ltda
' * *
' * *
' * * O SOFTWARE É FORNECIDO "COMO ESTÁ", SEM NENHUMA GARANTIA DE NENHUM TIPO.
' * * VOCÊ ASSUME TODOS OS RISCOS E RESPONSABILIDADES
' * * PELA ESCOLHA DO SOFTWARE PARA ALCANÇAR OS RESULTADOS DESEJADOS E PELA
' * * INSTALAÇÃO, USO E RESULTADOS OBTIDOS POR MEIO DO SOFTWARE. A EMPRESA NÃO
' * * OFERECE NENHUMA GARANTIA DE QUE O SOFTWARE ESTARÁ SEM ERROS, NÃO
' * * APRESENTARÁ INTERRUPÇÕES OU OUTRAS FALHAS, OU QUE SEJA COMPATÍVEL COM
' * * ALGUM HARDWARE OU SOFTWARE ESPECÍFICO. ATÉ A EXTENSÃO MÁXIMA PERMITIDA
' * * PELA LEI APLICÁVEL, A EMPRESA ISENTA-SE DE TODAS AS GARANTIAS, EXPRESSAS
' * * OU IMPLÍCITAS, INCLUINDO, SEM LIMITAÇÃO, QUALQUER GARANTIA IMPLÍCITA DE
' * * COMÉRCIO, ADEQUAÇÃO A UM DETERMINADO FIM E NÃO-VIOLAÇÃO REFERENTES AO
' * * SOFTWARE E AOS MATERIAIS ESCRITOS QUE O ACOMPANHAM. ALGUNS ESTADOS NÃO
' * * PERMITEM LIMITAÇÕES A GARANTIAS IMPLÍCITAS; PORTANTO, A LIMITAÇÃO ACIMA
' * * PODE NÃO SE APLICAR A VOCÊ. VOCÊ, POR MEIO DESTE DOCUMENTO, RECONHECE QUE
' * * O SOFTWARE PODE NÃO ESTAR DISPONÍVEL OU SE TORNAR INDISPONÍVEL DEVIDO A
' * * DIVERSOS FATORES, INCLUINDO, SEM LIMITAÇÃO, MANUTENÇÃO PERIÓDICA DO
' * * SISTEMA, PROGRAMADA OU NÃO, SITUAÇÕES FORTUITAS OU DE FORÇA MAIOR, FALHA
' * * TÉCNICA DO SOFTWARE, PROBLEMAS DE INFRA-ESTRUTURA DE TELECOMUNICAÇÕES,
' * * ATRASO OU INTERRUPÇÃO ATRIBUÍVEL A VÍRUS, ATAQUES DE NEGAÇÃO DE SERVIÇO,
' * * AUMENTO DA DEMANDA OU DEMANDA FLUTUANTE, AÇÕES E OMISSÕES DE TERCEIROS OU
' * * QUALQUER OUTRA CAUSA FORA DO CONTROLE DA EMPRESA. PORTANTO, A EMPRESA
' * * ISENTA-SE DE QUALQUER GARANTIA EXPRESSA OU IMPLÍCITA RELACIONADA AO
' * * SISTEMA E/OU À DISPONIBILIDADE, ACESSIBILIDADE OU DESEMPENHO DO SOFTWARE.
' * *
' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

'Nome da pasta onde está o arquivo arclib.dll atualizado
SOURCE_FOLDER = "\\server\Downloads\CA\eTrust Antivirus\7.1\QO73930"

'Cria um objeto do tipo Shell, para ler o conteúdo da variável de ambiente
Set oShell = CreateObject("WScript.Shell")
Set oWshProcessEnv = oShell.Environment("process")

'Cria uma variável que irá guardar o conteúdo da variável de ambiente AVENGINE
AVENGINE = oWshProcessEnv("AVENGINE")

'Cria um objeto do tipo FileSystem, para ser as informações do arquivo
Set objFSO = CreateObject("Scripting.FileSystemObject")

'Verifica se a versão do arquivo da pasta %AVENGINE%\arclib.dll
'e´ diferente de 7.2.1.23
If objFSO.GetFileVersion(AVENGINE & "\arclib.dll") <> "7.2.1.23" Then
'Para o serviço INORT
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery("Associators of " _
& "{Win32_Service.Name='InoRT'} Where " _
& "AssocClass=Win32_DependentService " & "Role=Antecedent" )
For each objService in colServiceList
objService.StopService()
Next
Wscript.Sleep 20000
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name='InoRT'")
For each objService in colServiceList
errReturn = objService.StopService()
Next


'Deleta o arquivo de destino
'objFSO.DeleteFile(AVENGINE & "\arclib.dll")
objFSO.MoveFile AVENGINE & "\arclib.dll" , AVENGINE & "\arclib.dll.old"

'Copia o arquivo atualizado para a pasta
objFSO.CopyFile SOURCE_FOLDER & "\arclib.dll" , AVENGINE & "\", OverwriteExisting

'Inicia novamente o serviço INORT
For each objService in colServiceList
errReturn = objService.StartService()
Next
Wscript.Sleep 20000
For each objService in colServiceList
objService.StartService()
Next

End If