none
Coletar valor de uma execução cmd /c RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Ba galera,

    Boa tarde, alguém consegue me dar uma ajuda tche, estou elaborando um vbs, e em um determinado passo dele estou executando um comando para coletar a versão do powershell da estação conforme descrito abaixo porem o retorno é sempre 0, mas se executo no cmd o valor é exibido.

    Como devo executar esta chamada tche para que o valor retorne correto para variável, para que eu possa passar o valor para um IF.

    chamada.

    Set objShell = CreateObject("WScript.Shell")
    strpowerver = objShell.Run ("cmd /c powershell ((get-host).Version).Major")

    ja tentei assim tb.

    Set objShell = CreateObject("WScript.Shell")
    strpowerver = objShell.Run ("cmd /c powershell ((get-host).Version).Major",1 , true)

    obrigado galera.


    • Editado Marcelo TI quinta-feira, 8 de setembro de 2016 17:31
    quinta-feira, 8 de setembro de 2016 17:22
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Marcelo

    Boa tarde.

    Não sei se compreendi mais veja se isso resolve sua questão.

    Set objShell = CreateObject("WScript.Shell")
comspec = objShell.ExpandEnvironmentStrings("%comspec%")

Set objExec = objShell.exec (comspec & " /c powershell ((get-host).Version).Major")
strpowerver = objExec.StdOut.ReadLine

WScript.Echo strpowerver

    Your potential. Our passion - Microsoft

    • Marcado como Resposta Marcelo TI quinta-feira, 8 de setembro de 2016 19:47
    quinta-feira, 8 de setembro de 2016 18:09
    |

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Marcelo

    Boa tarde.

    Não sei se compreendi mais veja se isso resolve sua questão.

    Set objShell = CreateObject("WScript.Shell")
comspec = objShell.ExpandEnvironmentStrings("%comspec%")

Set objExec = objShell.exec (comspec & " /c powershell ((get-host).Version).Major")
strpowerver = objExec.StdOut.ReadLine

WScript.Echo strpowerver

    Your potential. Our passion - Microsoft

    • Marcado como Resposta Marcelo TI quinta-feira, 8 de setembro de 2016 19:47
    quinta-feira, 8 de setembro de 2016 18:09
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Ba Leandrão era isso mesmo, obrigado tche.
    quinta-feira, 8 de setembro de 2016 19:48
    |