miércoles, 30 de septiembre de 2015

Monitoreo de carpetas con VBS ejecutando PUTTY

Se requiere el monitoreo de una carpeta para ejecutar una tarea en otro servidor, al detectar archivo .TXT, conectarse a un servidor y ejecutar un shell script.

Archivo VBS:

Dim Wshshell,FSO
set fso = CreateObject("Scripting.FileSystemObject")
set directory = fso.GetFolder("C:\Carpeta\").Files

for each file in directory if Mid(file.NAME,len(file.NAME)-3,4) = ".TXT" then   Set wshshell = wscript.CreateObject("WScript.Shell")   Wshshell.run "putty.exe -ssh USUARIO@192.168.1.100 -pw PASSWORD -m Comandos.txt"   MsgBox file.NAME & " - " & Mid(file.NAME,len(file.NAME)-3,4)   Exit For Else    MsgBox file.NAME & " - " & Mid(file.NAME,len(file.NAME)-3,4) End If next

El archivo comando contiene todo lo que puedes ejecutar en un terminal o consola en este caso usamos

Archivo Comandos.txt: cd /carpeta
ls -l
sh script.sh

Solo faltaria crear una tarea programada ejecutando el archivo VBS, para que realice el monitoreo de la carpeta,


Saludos!!,
Armando Mateu.