WinCC Funcion Ping en VBScript

La siguiente práctica tiene como objetivo hacer un ping a los equipos de nuestra red, suponiendo que WinCC esta ejecutandose en primer plano y no tenemos acceso a poder ejecutar directamente "cmd", por ese motivo lo vamos a ejecutar desde nuestra imagen.

Podria ser una función que se ejecute ciclicamente o ...

El ejemplo consiste en hacer un ping y la respuesta la vamos a guardar en una archivo de Texto plano, que posteriormente mostraremos en nuestra pantalla en un Objeto ListBox.

Una vez leido el archivo seremos capaces de saber si hay comunicación o no con lo cual lanzar una alarma o producir un evento o lo que requiera la aplicación.

De entre todas las formas de poder hacerlo voy a proponer dos de ellas y nombrare una tercera.

La función va a ser la misma en todas ellas, lo que varia entre ambas es que en una de ellas mientras estemos ejecutando la función aparecera la consola de cmd en primer plano, lo cual no causa muy buena impresión, y el Script seria el siguiente.

Y en este segundo caso, la ventana va a permanecer oculta, esto es posible porque en esta ocasión hemos utilizado del objeto WScript.Shell Run el cual le podemos pasar los argumentos necesarios para ocultarla, sin embargo en el primer Script hemos utilizado el objeto WScript.Shell Exec el cual no tiene ningun argumento para mantenerla oculta.

La otra opción que podiamos haber utilizado seria programarlo en C, ya que disponemos de la libreria stdlib y la función, la cual nos permite pasarle los argumentos en un cadena System("cmd /c ping 192.168.1.2 > ResultadoPings.txt")

Como no le he explicado anteriormente " > ResultadoPings.txt " nos sirve para en vez de mostrarlo por pantalla guardarlo en un archivo, que posteriormente leeremos, mostraremos etc...

22 de Enero del 2014

Si te ha gustado o te ha sido de utilidad ... Compartelo :-)