none
Script de instalação RRS feed

  • Pergunta

  • Pessoal

    Pro favor, dêem uma olhada no script abaixo e cejam se tem alguma coisa errada.
    Achei na internet mas não funciona.

    A lógica é o seguinte:

    1 - Ver se existe um arquivo trendinst.txt.
    2 - Se existir então executa um comando de atualização de antivírus, e encerra o script.
    3 - Se o arquivo não existir então executa a instalação do antivírus e cria o log trendinst.txt.

    O script não dá erro, mas tambem nao instala e nem atualiza.

    ***************



    Sub Main()

    Dim FSO
    Dim WSH
    Dim LogFile
    Dim TxtFile
    Dim AppToRun
    Dim ts
    Dim Running
    Dim Atualiza
    Dim trend

       ' Variáveis.
       '
       LogFile  = "C:\dell\log1.txt"
       TxtFile  = "C:\dell\trendinst.txt"
       AppToRun = "\\server\scripts\trend-install.exe"
       Atualiza = "\\server\ofcscan\Admin\Utility\IpXfer\ipXfer.exe -m 1 -s 10.10.5.15 -p 8080 -c 43652 -m1"
      
       Set FSO = CreateObject("Scripting.FileSystemObject")
       Set WSH = CreateObject("Wscript.Shell")
       Set trend = CreateObject("Wscript.Shell")

       ' Se o arquivo trendinst.txt existe, entao apenas atualiza o antivírus
       If Not FSO.FileExists(TxtFile) Then
       trend.run Atualiza,1,True
          Wscript.Quit
       End If

       ' Ver se precisamos criar o log...
       If FSO.FileExists(LogFile) Then
         WScript.Echo "Abortando... a aplicacao está sendo executada."
         Wscript.Quit
       Else
          Set ts = FSO.CreateTextFile(LogFile)
          ts.Close
          If Not FSO.FileExists(LogFile) Then
             Wscript.Echo "Abortando... nao foi possível criar o log"
             Wscript.Quit
          End If
       End If

       ' Se chegamos a este ponto é porque precisamos instalar o antivirus..
       Wscript.Echo "Arquivo nao existe."
       Set Running = WSH.Exec(AppToRun)

       ' Agora aguardamos a execução da aplicação para continuarmos...
       Do While Running.Status <> 1
          Wscript.Sleep 1000
       Loop

       ' Agroa nós precisamos remover o log...
       FSO.DeleteFile(LogFile)
       Wscript.Echo "Finished!"

    End Sub


    Aldiko
    quinta-feira, 21 de maio de 2009 19:07

Respostas

  • Olá,

    Fiz algumas modificações.... Veja se te atende:

    Dim FSO
    Dim WSH
    Dim LogFile
    Dim TxtFile
    Dim AppToRun
    Dim ts
    Dim Running
    Dim Atualiza
    Dim trend

       ' Variáveis.
       '
       LogFile  = "C:\dell\log1.txt"
       TxtFile  = "C:\dell\trendinst.txt"
       AppToRun = "\\server\scripts\trend-install.exe "
       Atualiza = "\\server\ofcscan\Admin\Utility\IpXfer\ipXfer.exe -m 1 -s 10.10.5.15 -p 8080 -c 43652 -m1"
     
       Set FSO = CreateObject("Scripting.FileSystemObject")
       Set WSH = CreateObject("Wscript.Shell")
       Set trend = CreateObject("Wscript.Shell")

       ' Se o arquivo trendinst.txt existe, entao apenas atualiza o antivírus
       If FSO.FileExists(TxtFile) Then
          trend.run Atualiza,1,True
             Wscript.Quit
          ' Ver se precisamos criar o log...
          If FSO.FileExists(LogFile) Then
            WScript.Echo "Abortando... a aplicacao está sendo executada."
            Wscript.Quit
          Else
             Set ts = FSO.CreateTextFile(LogFile)
             ts.Close
             If Not FSO.FileExists(LogFile) Then
                Wscript.Echo "Abortando... nao foi possível criar o log"
                Wscript.Quit
             End If
          End If
       Else
          ' Se chegamos a este ponto é porque precisamos instalar o antivirus..
          Wscript.Echo "Arquivo nao existe. Instalando o antivirus"
          Set Running = WSH.Exec(AppToRun)

          ' Agora aguardamos a execução da aplicação para continuarmos...
          Do While Running.Status <> 1
             Wscript.Sleep 1000
          Loop
         

          ' Agroa nós precisamos remover o log...
          if FSO.FileExists(LogFile) Then
             FSO.DeleteFile(LogFile)
          End if
          Wscript.Echo "Finished!"
       End if


    Faça os testes e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    domingo, 24 de maio de 2009 12:54