none
Script BAT para VBSCRIPT RRS feed

  • Pergunta

  • Camaradas, bom dia!

    Criei um Bat para verificar a existência de um arquivo nos pcs da minha rede e, caso não existisse, instalasse um aplicativo buscando no meu domain controller, no meu caso, o IE 10 para Windows XP, rodando via logon script. Ficou assim, mas não funcionou...

    ______________

    @echo off
    
    IF EXIST "c:\%programfiles%\internet explorer\ieproxy.dll" GOTO 2
    
    ELSE GOTO 1
    
    :2
    echo IE 8 Instalado
    
    GOTO 1
    
    :1
    "\\192.168.0.1\netlogon\IE8XP\IE8-Setup-Full.exe /q"


    _____________

    Alguém poderia me ajudar convertendo para VBSCRIPT?

    Muito Obrigado!!


    Mcp Mcdst Itil Iso



    sexta-feira, 8 de agosto de 2014 11:52

Respostas

Todas as Respostas

  • Leonardo,

    Seu script faz basicamente duas coisas:

    1-Verificar se um arquivo existe

    2-Executar  um arquivo

    Tente "montar o quebra-cabeça" a partir deste dois artigos, se não conseguir poste o que você já fez.

    How to Verify if file exist with VB script

    http://stackoverflow.com/questions/3031497/how-to-verify-if-file-exist-with-vb-script

    Run Method (Windows Script Host)

    http://msdn.microsoft.com/en-us/library/d5fk67ky(v=vs.84).aspx

    Edição:

    Opa, tem mais uma coisa importante, ele usa uma váriavel do sistema (%progrmafiles%)

    Environment Variables

    http://www.robvanderwoude.com/vbstech_data_environment.php

    Edição 2

    Acho que seu script não funcionou porque você concatenou c:\ + %programfiles%, a variavel programfiles já contém c:\, é como se vc estivesse tentando encontrar o arquivo "c:\C:\arquivos de programs\..."


    Fábio de Paula Junior



    sexta-feira, 8 de agosto de 2014 12:53
    Moderador
  • Camarada, vai me ajudar muito! Como não sou desenvolvedor, dei uma lida aqui sobre vbscripts e vou "montar o quebra cabeças" com disse... Conseguindo ou não, posto aki...

    Vlw demaissss!!


    Mcp

    sexta-feira, 8 de agosto de 2014 13:34
  • Camarada, ficou assim:

    Option Explicit
    DIM fso, WshShell  

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set WshShell = WScript.CreateObject("WScript.Shell")

    If (fso.FileExists("%programfiles%\internet explorer\ieproxy.dll")) Then
      WScript.Echo("Internet Explorer 8 Instalado!")
      WScript.Quit()

    Else
      WshShell.Run "\\192.168.0.1\netlogon\IE8XP\IE8-Setup-Full.exe /q" & WScript.ScriptFullName
    End If

    WScript.Quit()

    Porém, ele está ignorando a linha em negrito, pois o arquivo ieproxy.dll está na pasta, então ele deveria retornar -Full.exe

    O que faltou ou fiz errado?

    Obrigado mais uma vez...


    Mcp

    sexta-feira, 8 de agosto de 2014 14:16
  • O VBScript não entende o %programfiles%, você tem que usar aquele ultimo link que postei para conseguir este valor e então concatenar com o seu "internet explorer\ieproxy.dll".

    Fábio de Paula Junior

    sexta-feira, 8 de agosto de 2014 14:29
    Moderador
  • Vlw Camarada... Fiz o que disse e deu certo... Muito obrigado!!!


    Mcp

    sexta-feira, 8 de agosto de 2014 18:35