Lanzar un script QSH desde un programa CL

En algunas circunstancias puede ser necesario lanzar un script que realice alguna tarea en el sistema de archivos integrado, en mi caso cada usuario tiene una carpeta personal que para reducir tamaño voy borrando cada cierto tiempo con este CL

PGM                                                                          
/*                                                      */                   
DCL        VAR(&SENTE) TYPE(*CHAR) LEN(256)                                  
DCL        VAR(&USUARIO) TYPE(*CHAR) LEN(10)                                 
DCL        VAR(&CMD2) TYPE(*CHAR) LEN(30)                                    
RTVJOBA    USER(&USUARIO)                                                    
/* modifico la variable de entorno a none para que no muestre la consola   */
ADDENVVAR ENVVAR(QIBM_QSH_CMD_OUTPUT) VALUE(NONE) LEVEL(*JOB)                                                       
/*                                                      */                   
CHGVAR     VAR(&CMD2) VALUE(' | xargs rm -rf')                               
CHGVAR     VAR(&SENTE) VALUE('find /home/')                                  
CHGVAR     VAR(&SENTE) VALUE(%TRIM(&SENTE)||%TRIM(&USUARIO))                 
CHGVAR     VAR(&SENTE) VALUE(%TRIM(&SENTE)||%TRIMR(&CMD2))                   
STRQSH     CMD(&SENTE)                                                                        
RMVENVVAR  ENVVAR(QIBM_QSH_CMD_OUTPUT)                                       
/*                                                      */                   
ENDPGM                                                                       
​

En mi caso añado una variable de entorno para que no muestra la consola, después la elimino.

Este programa esta creado y compilado en versión V7R1.

Busquedar rápidas en Stack Overflow

Ejemplo, buscar información de visual rpg 

• Usando DuckDuckGo !so visual rpg

• Usando Google visual rpg site:stackoverflow.com +ASNA -Microsoft

Por supuesto el +ASNA -Microsoft son para afinar un poco más la búsqueda pero son opcionales. Incluso en este ejemplo aportan poco.

Acceso a la powershell de una máquina de forma remota

En máquina remota a la que queremos acceder.

Activamos la powershell remota.

Enable-PSRemoting -Force

Nos aseguramos de que el servicio queda en modo automático.

xxxxxxxxxx
Set-Service WinRM -StartMode Automatic

En la máquina desde la que queremos acceder.

Tecleamos.

xxxxxxxxxx
Enter-PSSession -ComputerName pc_o_server -Credential Dominio\Administrador

 

 

 

 

 

 

 

 

Punto de acceso wifi-móvil con la rasp3 y OpenWtr

En muchas ocasiones podemos encontrarnos en salas donde existe una conexión lan pero no se dispone de un punto wifi y necesitamos conectar algún dispositivo móvil para hacer una demo, o tener una conexión puntual.

Yo para este caso estoy usando una rasp3 con OpenWtr, de tal forma que lo configuro como punto de acceso y me permite salir del problema de forma rápida y sencilla.

Desde https://openwrt.org nos descargamos el software, lo quemamos en la tarjeta SD (recomiendo Echer https://www.balena.io/etcher/)

Configuramos rápidamente accediendo por web y listo.

Windows defender

Notas rápidas para deshacernos de windows defender.

En windows 7 desde una consola con privilegios de administrador.

• sc config WinDefend start= disabled (deshabilitar el servicio)
• sc stop WinDefend (parar el servicio)

Importante en el sc config poner el igual tal como se aprecia en el ejemplo.

En windows 2016 server, desde una powershell con privilegios de administrador

• Uninstall-WindowsFeature -Name Windows-Defender

 
...continuará

RCLONE - Copias en la nube

Rclone es una herramienta que nos permite hacer copias de seguridad y mantenerlas sincronizadas con nuestros servicios en la nube.

Tiene la ventaja de poder conectarse a distintos servidores, lo que permite aprovechar desde una sola aplicación las servicios gratuitos de múltiples nubes.

Es una aplicación de línea de comandos y se puedes descargar para distintos sistemas operativos desde su web. En su web también se encuentra las instrucciones para usarla con los distintos servicios cloud.

Escribiendo rclone aparece la ayuda general y escribiendo rclone comando --help la ayuda para el comando concreto.

Los comandos más usados son copy "rclone copy c:\carpeta box:Backup/carpeta" por ejemplo en este caso copia el contenido de la carpeta llamada "carpeta" de c:\carpeta en la nube carpeta Backup/carpeta en mi servicio cloud de box.net que he llamado box.

Otro ejemplo sería rclone mkdir box:Backup/carpeta para crear una carpeta en la nube.

En la configuración inicial de rclone a mi cuenta de box.net la he llamado box, todo a sido muy sencillo siguiendo las instrucciones que detallan en la web.

Como se puede observar cualquier usuario familiarizado con el uso de comandos no tendrá mayor problema en usar la aplicación.

Yo he realizado las pruebas desde la versión para windows, que solo hay que descargar, descomprimir y usar, no necesita instalar ni usar un usuario con privilegios de administrador. En las pruebas que he realizado se muestra muy rápido.

Utilidades para powershell

Ante el empuje que cada vez más tiene el uso de powershell en el entorno windows de última generación, estoy comenzando a realizar alguna cosa con ella, más por obligación que otra cosa, ya que a pesar de tener dos libros, (si dos libros me gusta comprar libros) sobre el tema no consigo sacar tiempo para darle más utilidad.

Recientemente con un windows 10 pro preinstalado en un equipo nuevo, no encontraba la forma de añadirlo al dominio, la opción estaba como desaparecida, pero claro para esto esta powershell, abres tu terminal y escribes.

Add-Computer -DomainName pruebas.com -Credential (Get-Credential)

Y problema solucionado.

Otras utilidades recopiladas: 

•  Cambiar el nombre de un equipo:
• Rename-Computer -NewName "PC01" -Restart
•  En este ejemplo, renombramos el equipo con el nombre: PC01.

• Añadir un equipo al dominio de Active Directory con más detalle:
• Add-Computer -ComputerName "PC01" -DomainName "dominion.local" -Credential dominion\Administrador -Restart -Force
•  En este ejemplo, añadimos al dominio de Active Directory: dominion.local el equipo: PC01, utilizando las credenciales de: dominion\Administrador. Finalmente, se reinicia el equipo.

• Quitar equipo del dominio de Active Directory:
• Remove-Computer -ComputerName "PC01" -Credential dominion\Administrador -Restart -Force
•  En este ejemplo, eliminamos el equipo PC01, del dominio de Active Directory. 

Espero que os sea de utilidad