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.

Ocultar contraseña a simple vista en un Bash

Cuando estamos escribiendo un Shell Scripting, posiblemente no nos gustaría mostrar una contraseña a simple vista que pueda ser recordada facilmente,  por lo tanto vamos a dificultar esta lectura a la vista de los usuarios.

Primer Script, que se conecta a un FTP, para descargar archivos .txt

echo "Conectado al servidor para descargar archivos"
ftp -n 172.25.250.272 << EOF
user armando hola
binary
prompt
mget *.txt
quit
EOF

Como podemos ver el usuario es armando y la contraseña es hola, muy facil de recordar!!, ahora vamos a dificultar un poco el recordar la contraseña.

Creando un reporte ALV en ABAP

Creación de un reporte en ABAP utilizando un simple ALV para mostrar datos de la tabla SPFLI.

*&---------------------------------------------------------------------*
*& Report  ZAHM_ALV_DEMO
*&
*&---------------------------------------------------------------------*
*&Descripcion: Mostrar diferentes formas de crear un ALVGrid.
*&Programo...: Armando H Mateu.
*&Fecha......: 18/08/2015.
*&---------------------------------------------------------------------*

REPORT  ZAHM_ALV_DEMO.

include ZAHM_ALV_DEMO_TOP.
include ZAHM_ALV_DEMO_SUB.

START-OF-SELECTION.
  PERFORM obtener_datos.
  PERFORM crear_cabecera.
  PERFORM crear_catalogo.
  PERFORM mostrar_cabecera.
  PERFORM mostrar_reporte.