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.