none
Script VBS 64 bits RRS feed

  • Pergunta

  • Boa tarde.

    Pessoal estou com uma dificuldade muito grande em encontrar uma solução para um problema de vbscript.

    Eu tinha o windows 7 de 32 bits aqui na empresa e mudaram para 64 bits devido a alterações na memória.

    Só que meus scripts .vbs pararam de funcionar, já pesquisei em diversos locais e não consigo achar uma solução que faça com que o script funcione.

    Segue o código abaixo para elucidar melhor, até o "objShell.SendKeys "2015-07-" & data & "-sarbanes*" funciona, mas depois ele não "captura" o arquivo do ftp, e simplesmente fecha a janela de código

    Dim objShell 
    Dim t 
    Dim data
    Dim datanome

        t = date
        data = Right("0" & Day(t),2)
      


    Set OBJShell = WScript.CreateObject( "WScript.Shell" )

    objShell.Run "C:\Windows\SysWOW64\cmd.exe" , 3
    Wscript.Sleep x
    objShell.SendKeys "cd\" 
    Wscript.Sleep x
    objShell.SendKeys "{ENTER}"
    Wscript.Sleep x
    objShell.SendKeys "FTP" 
    Wscript.Sleep x
    objShell.SendKeys "{ENTER}"
    Wscript.Sleep x
    objShell.SendKeys "USUARIO" 
    Wscript.Sleep x
    objShell.SendKeys "{ENTER}"
    Wscript.Sleep x
    objShell.SendKeys "SENHA" 
    Wscript.Sleep x
    objShell.SendKeys "{ENTER}"
    Wscript.Sleep x
    objShell.SendKeys "cd /inbox/"
    Wscript.Sleep x
    objShell.SendKeys "{ENTER}"
    Wscript.Sleep x
    objShell.SendKeys "PROMPT"
    Wscript.Sleep x
    objShell.SendKeys "{ENTER}"
    Wscript.Sleep x
    objShell.SendKeys "lcd C:\DADOS\SARBANES"
    Wscript.Sleep x
    objShell.SendKeys "{ENTER}"
    Wscript.Sleep x
    objShell.SendKeys "Binary"
    Wscript.Sleep x
    objShell.SendKeys "{ENTER}"
    Wscript.Sleep x
    objShell.SendKeys "Mget"
    Wscript.Sleep x
    objShell.SendKeys "{ENTER}"
    Wscript.Sleep x
    objShell.SendKeys "2015-07-" & data & "-sarbanes*"
    Wscript.Sleep x
    objShell.SendKeys "{ENTER}"
    Wscript.Sleep x
    objShell.SendKeys "close"
    Wscript.Sleep x
    objShell.SendKeys "{ENTER}"
    Wscript.Sleep x
    objShell.SendKeys "bye"
    Wscript.Sleep x
    objShell.SendKeys "{ENTER}"
    Wscript.Sleep x
    objShell.SendKeys "exit"
    Wscript.Sleep x
    objShell.SendKeys "{ENTER}"
    Wscript.Sleep x


    terça-feira, 14 de julho de 2015 18:21

Todas as Respostas

  • Carlos,

    Porque você não usa o FTP com a opção de script dele (-s)?

    Pelo jeito você tem que alterar o script de acordo com a data, você pode usar o VBSCript ou uma .BAT (usando ECHO) para criar o arquivo de script e depois executar o FTP -s com o arquivo que você acabou de criar.


    Fábio de Paula Junior

    terça-feira, 21 de julho de 2015 17:12
    Moderador
  • Olá Fábio obrigado pela ajuda.

    Na verdade não sei como fazer isso, sou "novo" nesse tipo de script.

    Sim realmente eu preciso alterar o script conforme a data, mas já fiz um outro teste que era o seguinte:

    1-criei um .bat para executar um parametro no txt.

    Script do .bat

    ftp -s:parame.txt

    Script do parame.txt

    open ftp
    usuario
    senha
    cd /inbox/
    prompt
    binary
    mget "2015-07-21-sarbanes"
    close
    bye

    Só que esbarro na DATA do arquivo, preciso criar uma variável para ele pegar a data a atual(hoje no caso 21).

    Alem do fato de ter que alterar o local de download, acredito que o comando lcd ainda seja valido nesse caso.

    É isso que não consigo fazer.

    Mas ainda sim é muito estranho que não funcione o script no 64 bits.

    mais uma vez obrigado


    terça-feira, 21 de julho de 2015 17:26