none
Variável Script VBS RRS feed

  • Pergunta

  • Prezados, boa noite!

    Poderiam me ajudar com o script abaixo, fiz ele porém sempre retorna 0 , mesmo encontrando erros.

    Dim consulta 
    Dim objShell
    Set objShell = WScript.CreateObject ("WScript.shell")
    consulta = objShell.run("dcdiag /test:DNS | findstr /i failed")
    If consulta = "0" Then
       WScript.Echo "OK"
    Else
       WScript.Echo "ERROR"
    End If


    Desde já agradeço a ajuda de todos.


    • Editado Klebinhu Ramos domingo, 10 de abril de 2016 03:23 Consegui fazer uma parte do script
    domingo, 10 de abril de 2016 03:05

Respostas

  • Prezados, boa noite!

    Poderiam me ajudar com o script abaixo, fiz ele porém sempre retorna 0 , mesmo encontrando erros.

    Dim consulta 
    Dim objShell
    Set objShell = WScript.CreateObject ("WScript.shell")
    consulta = objShell.run("dcdiag /test:DNS | findstr /i failed")
    If consulta = "0" Then
       WScript.Echo "OK"
    Else
       WScript.Echo "ERROR"
    End If


    Desde já agradeço a ajuda de todos.


    Acredito que ele retorna sempre "0" porque ele consegue pegar o resultado que o dcdiag foi executado, porém não executa os comandos após o pipeline.

    Ajustei o script, o mesmo ficou da seguinte forma:

    Option Explicit
    Dim consult 
    consult = WScript.CreateObject("WScript.Shell").Run("%comspec% /c dcdiag /test:DNS |findstr /i failed", 0, True)
    If consult = "0" THEN
        WScript.Echo "ERROR"
    else
        WScript.Echo "OK"
    end If

    Obs: Não sei te dizer se o mesmo está nas melhores práticas, mas está funcionando da forma que eu precisava.

    • Marcado como Resposta Klebinhu Ramos terça-feira, 12 de abril de 2016 03:46
    terça-feira, 12 de abril de 2016 03:46

Todas as Respostas

  • Prezados, boa noite!

    Poderiam me ajudar com o script abaixo, fiz ele porém sempre retorna 0 , mesmo encontrando erros.

    Dim consulta 
    Dim objShell
    Set objShell = WScript.CreateObject ("WScript.shell")
    consulta = objShell.run("dcdiag /test:DNS | findstr /i failed")
    If consulta = "0" Then
       WScript.Echo "OK"
    Else
       WScript.Echo "ERROR"
    End If


    Desde já agradeço a ajuda de todos.


    Acredito que ele retorna sempre "0" porque ele consegue pegar o resultado que o dcdiag foi executado, porém não executa os comandos após o pipeline.
    domingo, 10 de abril de 2016 03:52
  • Prezados, boa noite!

    Poderiam me ajudar com o script abaixo, fiz ele porém sempre retorna 0 , mesmo encontrando erros.

    Dim consulta 
    Dim objShell
    Set objShell = WScript.CreateObject ("WScript.shell")
    consulta = objShell.run("dcdiag /test:DNS | findstr /i failed")
    If consulta = "0" Then
       WScript.Echo "OK"
    Else
       WScript.Echo "ERROR"
    End If


    Desde já agradeço a ajuda de todos.


    Acredito que ele retorna sempre "0" porque ele consegue pegar o resultado que o dcdiag foi executado, porém não executa os comandos após o pipeline.

    Ajustei o script, o mesmo ficou da seguinte forma:

    Option Explicit
    Dim consult 
    consult = WScript.CreateObject("WScript.Shell").Run("%comspec% /c dcdiag /test:DNS |findstr /i failed", 0, True)
    If consult = "0" THEN
        WScript.Echo "ERROR"
    else
        WScript.Echo "OK"
    end If

    Obs: Não sei te dizer se o mesmo está nas melhores práticas, mas está funcionando da forma que eu precisava.

    • Marcado como Resposta Klebinhu Ramos terça-feira, 12 de abril de 2016 03:46
    terça-feira, 12 de abril de 2016 03:46