Usuário com melhor resposta
Variável Script VBS

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
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 IfObs: 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
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.
-
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 IfObs: 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