[Resolvido] instalar software atráves do vbs

[Tom55 0]

e ai galera...

 

estou tentando criar um scrip para instalar o symantec antivirus nos micros aqui da empresa.

 

o scrip vai rodar quando a pessoa se logar na máquina(isso é o de menos)

 

mas ele está dando erro... será que alguem pode me ajudar? ja procurei bastente coisa na net e não achei nada que me ajudasse...

 

CODE

Const wbemImpersonationLevelDelegate = 4

 

Dim local, fso, cNetworkShare, local1

 

cNetworkShare = "c:\Temp"

 

local = "C:\Arquivos de programas\Symantec AntiVirus\VPC32.exe"

local1 = "C:\Program Files\Symantec AntiVirus\VPC32.exe"

 

Set objNet = WScript.CreateObject("WScript.Network")

Set fso = CreateObject("Scripting.FileSystemObject")

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

 

If fso.fileexists(local) Or fso.fileexists(local1) Then

MsgBox "1"

Else

MsgBox "2"

Set Shell = CreateObject("scripting.shell")

MsgBox "3"

Shell.run "msiexec /package""\\SERVIDOR\vphome\CLT-INST\WIN32\Symantec AntiVirus.msi""/quiet"

MsgBox "4"

 

End If

ps. os msgbox eu coloquei para ver fazer teste

 

a linha que gera o erro é:

Set Shell = CreateObject("scripting.shell")

[scorpio 7]

Tenta isso

Set Shell = CreateObject("WScript.shell")

[Tom55 0]

usei o que você postou cara.....

 

mas nao adiantou..

 

o que aconteceu foi que abriu uma tela do windows com informações do windows installer

 

o que segue abaixo estava na tela que abriu .... e não instalou...

 

Windows ® Installer. V 3.01.4000.1823

 

msiexec /Opção <Parâmetro_Necessário> [Parâmetro Opcional]

 

Opções de Instalação

</package | /i> <Produto.msi>

Instala ou configura um produto

/a <Produto.msi>

Instalação administrativa - Instala um produto na rede

/j<u|m> <Produto.msi> [/t <Lista de Transformação>] [/g <ID_Idioma>]

Divulga um produto - m para todos os usuários, u para o usuário atual

</uninstall | /x> <Produto.msi | CódigoProduto>

Desinstala o produto

Opções de Exibição

/quiet

Modo silencioso, sem interação do usuário

/passive

Modo autônomo - somente barra de progresso

/q[n|b|r|f]

Define o nível da interface do usuário

n - Sem interface do usuário

b - Interface do Usuário básica

r - Interface do Usuário reduzida

f - Interface do Usuário completa (padrão)

/help

Informações de Ajuda

Opções de reinicialização

/norestart

Não reinicia depois que a instalação for concluída

/promptrestart

Solicita que o usuário reinicie, caso necessário

/forcerestart

Sempre reinicia o computador após a instalação

Opções de Log

/l[i|w|e|a|r|u|c|m|o|p|v|x|+|!|*] <ArquivoLog>

i - Mensagens de status

w - Avisos não fatais

e - Todas as mensagens de erro

a - Inicialização de ações

r - Registros específicos de ações

u - Solicitações do usuário

c - Parâmetros iniciais de Interface

m - Informações de memória insuficiente ou saída fatal

o - Mensagens de espaço em disco insuficiente

p - Propriedades do terminal

v - Saída detalhada

x - Informações adicionais de depuração

+ - Acrescentar ao arquivo de log existente

! - Mover cada linha para o log

* - Registrar todas as informações, exceto para as opções v e x

/log <ArquivoLog>

Equivalente a /l* <ArquivoLog>

Opções de Atualização

/update <Atualização1.msp>[;Atualização2.msp]

Aplica atualização(ões)

/uninstall <GuidCódigoPatch>[;Update2.msp] /package <Produto.msi | CódigoProduto>

Remove atualização(ões) de um produto

Opções de Reparo

/f[p|e|c|m|s|o|d|a|u|v] <Produto.msi | CódigoProduto>

Repara um produto

p - somente se o arquivo estiver ausente

o - se o arquivo estiver ausente ou uma versão mais antiga estiver instalada (padrão)

e - se o arquivo estiver ausente ou se uma versão igual ou mais antiga estiver instalada

d - se o arquivo estiver ausente ou uma versão diferente estiver instalada

c - se o arquivo estiver ausente ou checksum não corresponder ao valor calculado

a - força todos os arquivos e serem reinstalados

u - todas as entradas específicas do usuário necessárias (padrão)

m - todas as entradas do Registro específicas do computador necessárias (padrão)

s - todos os atalhos existentes (padrão)

v - executa da origem e rearmazena em cache o pacote local

Definição de Propriedades Públicas

[PROPERTY=PropertyValue]

 

Consulte o SDK do Windows ® Installer para obter documentação adicional sobre a

sintaxe de linha de comando.

 

Copyright © Microsoft Corporation. Todos os direitos reservados.

Partes deste software são baseadas no trabalho do Independent JPEG Group.

[Tom55 0]

http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

[Tom55 0]

uppp.....

[Tom55 0]

Moderação

 

 

pode marcar o tópico como resolvido ok?!

 

conseguui arrumar o script sozinho...

 

 

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[quintelab 91]

Poste ae o que você fez, pode auxiliar a outros usuários tbm.

 

Abraços...

[Tom55 0]

foi bastante simples...

 

apenas alterei a última linha que executava a instalação, estava com os parametros erradas

 

shell.run "msiexec /i""\\CAMINHO DO MSI NO SERVIDOR""/q"

[hygorsandro 0]

DUVIDA:

Essa mesma forma que ele usou posso usar ela de logica para...

quando o usuario entrar numa area privada do meu site...

ocorrer uma execução de um .exe para tal pasta?

 

 

-meio que o cliente vai estar entrando nessa area privada para

procurar atualização do soft.

[Claudio Neto 3]

Seu site está em ASP?

 

Se estiver, te encaminho para a área de ASP.

 

Mas pelo que achei, não é só fazer igual não, seria algo assim:

 

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run ("calc.exe")
Set WshShell = Nothing

Só que me parece que você precisa alterar alguma coisa no IIS para que isso funcione, e não consegui encontrar o que é.