KB-15457: Executando comando de Ping pelo E3.

Descrição:

Como executar um ping em um equipamento externo a rede que está rodando o aplicativo?

Solução:

Uma possibilidade é através dos scripts do E3 com comandos do VBScript.

Exemplo de script:

dim oShell, strComputer
set oShell = CreateObject("WScript.Shell")
strComputer = InputBox("Type the IP address you want to ping:", "Ping")

if strComputer <> "" then
' Ping Command options: timeout = 200 ms; number of echo requests = 1
if oShell.Run("ping " & strComputer & " -w 200 -n 1", 0, true) = 0 then
   MsgBox strComputer & " responded to ping.", 0, "Ping OK"
else
   MsgBox strComputer & " did not respond to ping", 0, "Ping Fail"
end if
end if

Observação: A aplicação exemplo em anexo foi feita usando o E3 3.1 Build 270.

Anexos:

AppPing

Print Friendly, PDF & Email

Este artigo foi útil? Was this helpful?

Classificação média - Average rating 0 / 5. Count: 0

Deixe seu Comentário

Seu endereço de e-mail não será publicado. Campos marcados com asterisco são obrigatórios *