none
Script de Logon para instalar software RRS feed

  • Pergunta

  • Bom dia Galera...
    tenho que instalar um programa via GPO...porém, preciso verificar se o mesmo já existe....se já existir não deve instalar....se não existir deve instalar...o programa é o Trauma-Zero....ele fica ativo como serviço....o nome é wwtask.exe...este arquivo fica oculto no diretorio %windows%\system32
    como proceder??
    Rombesso
    quarta-feira, 30 de setembro de 2009 19:03

Respostas

  • Olá,

    Verifiqua então se o arquivo existe:

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    If not objFSO.FileExists("c:\windows\system32\wwtask.exe") Then
        Wscript.Echo "Iniciar a instalação"
    End If



    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    • Marcado como Resposta Edgar Rombesso segunda-feira, 19 de outubro de 2009 15:16
    quinta-feira, 1 de outubro de 2009 17:50
  • Olá,

    Verifique o script abaixo:


    Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
    strComputer = "."
    strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
    strEntry1a = "DisplayName"
    Set objReg = GetObject("winmgmts://" & strComputer & _
     "/root/default:StdRegProv")
    objReg.EnumKey HKLM, strKey, arrSubkeys

    'aqui é como o programa fica no adicionar ou remover programas
    strSoftware = "Trauma"


    lRet = FALSe

     For Each strSubkey In arrSubkeys
        intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, _
         strEntry1a, strValue1)
        If intRet1 <> 0 Then
          objReg.GetStringValue HKLM, strKey & strSubkey, _
         strEntry1b, strValue1
        End If
        if instr(strValue1,strSoftware) > 0 Then
          lRet = TRUE
        End if
     
    Next


    if lRet = FALSE Then
    'aqui você pode colocar o código que eu te passei antes
       wscript.echo "INSTALAR O SOFTWARE"
    End if



    Até mais,

    Jesiel

    Obs.: Se útil, classifique




    • Marcado como Resposta Edgar Rombesso segunda-feira, 19 de outubro de 2009 15:16
    quinta-feira, 1 de outubro de 2009 16:51

Todas as Respostas

  • Olá,

    Você pode fazer por GPO:

    http://support.microsoft.com/kb/816102


    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    quinta-feira, 1 de outubro de 2009 12:11
  • Então...mas já tenho o arquivo exe...esse artigo é para gerar um pacote msi....nao tem maneira mais facil...tipo um script?
    Rombesso
    quinta-feira, 1 de outubro de 2009 14:59
  • Olá,

    Teste o script abaixo:

    Set oShell= CreateObject("Wscript.Shell") 

    strSoftware= "\\server\compartilhamento\software.exe"
    oShell.Run strSoftware ,, True



    Você pode passar os parametros na variavel strSoftware.

    Se o seu software precisar clicar em next next finish... você terá que clicar assim mesmo.


    Até mais,

    Jesiel

    Obs.: Se útil, classifique



     
    quinta-feira, 1 de outubro de 2009 16:19
  • Legal Jesiel...era mais ou menos isso que estava tentando fazer...consigo colocar um IF no meio esta instrução para caso o sofware já esteja instalado ele não instalar novamente? Tipo.....IF trauma instalado.... Não instala nada .....IF trauma não instalado...então instala...
    Rombesso
    quinta-feira, 1 de outubro de 2009 16:38
  • Olá,

    Verifique o script abaixo:


    Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
    strComputer = "."
    strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
    strEntry1a = "DisplayName"
    Set objReg = GetObject("winmgmts://" & strComputer & _
     "/root/default:StdRegProv")
    objReg.EnumKey HKLM, strKey, arrSubkeys

    'aqui é como o programa fica no adicionar ou remover programas
    strSoftware = "Trauma"


    lRet = FALSe

     For Each strSubkey In arrSubkeys
        intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, _
         strEntry1a, strValue1)
        If intRet1 <> 0 Then
          objReg.GetStringValue HKLM, strKey & strSubkey, _
         strEntry1b, strValue1
        End If
        if instr(strValue1,strSoftware) > 0 Then
          lRet = TRUE
        End if
     
    Next


    if lRet = FALSE Then
    'aqui você pode colocar o código que eu te passei antes
       wscript.echo "INSTALAR O SOFTWARE"
    End if



    Até mais,

    Jesiel

    Obs.: Se útil, classifique




    • Marcado como Resposta Edgar Rombesso segunda-feira, 19 de outubro de 2009 15:16
    quinta-feira, 1 de outubro de 2009 16:51
  • Jesiel,

    Se eu remover a linha strEntry1a = "DisplayName"    ele não irá mostrar nada no Adicionar e remover programa certo?

    pq esse trauma é na verdade um agente de inventário e monitoração que fica em background...é um processo ativo que pode ser visto no gerenciador de tarefas do windows...... ele fica alocado no "c:\windows\system32\wwtask.exe" ele é um arquivo oculto de sistema. o Executavel dele tem 1 Mb...não faço a mínima idéia de que chaves de registro ele mexe... então não entendi como vc irá verificar a existencia do arquivo no registro...

    Rombesso
    quinta-feira, 1 de outubro de 2009 17:19
  • Olá,

    Verifiqua então se o arquivo existe:

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    If not objFSO.FileExists("c:\windows\system32\wwtask.exe") Then
        Wscript.Echo "Iniciar a instalação"
    End If



    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    • Marcado como Resposta Edgar Rombesso segunda-feira, 19 de outubro de 2009 15:16
    quinta-feira, 1 de outubro de 2009 17:50
  • eu não tenho o longon no meu  pc
    terça-feira, 17 de novembro de 2009 20:11
  • Olá Josiel

    Eu fiz um script conforme você postou, porém o meu software tem as passos de next, next e finish e no que eu
    percebi isso irá ter interação com o usuário. Será que existe alguma forma de fazer isso sem ter interação com o 
    usuário.

    Att,
    Anderson Gobetti
    quinta-feira, 25 de fevereiro de 2010 13:31
  • Fala Jesiel.. vc é o cara !!!

    Este script é muito bom... porem eu precisava que o script checasse se uma chave de registro existe para se fazer a instalaçao.

    Tipo, se ela existe, então instala. Se ela não existe, então instala.

    Pode me ajudar ?

    Obrigado


    Aldiko
    sexta-feira, 5 de novembro de 2010 19:53