viernes, 24 de febrero de 2017

SCRIPTING - Ruta a perfil en Thunderbird

Script Batch para windows 7 que permite examinar la ruta a un perfil de thunderbird.

En el ejemplo permite buscar una palabra en el script, "bigot" para el ejemplo.

También permite recorrer el directorio del perfil, en este caso busco ciertas carpetas que permitan conocer si thunderbird se está utilizando realmente


:: Ruta thunderbird: Chequea si el usuario almacena thunderbird en local y almacena linea en log: c:\%TEMP%\log.txt
:: Definicion variables
@ECHO OFF
SET LOCAL=0
SET FICHERORESULTADOS=c:\%TEMP%\log.txt
:: Si no tiene perfil thunderbird, salimos
IF EXIST "c:\users\%username%\appdata\roaming\thunderbird\profiles.ini" GOTO PROCESA
goto FIN
:PROCESA
:: Busca la palabra "bigot" en fichero del perfil
findstr /I /c:"bigot" c:\users\%username%\appdata\roaming\thunderbird\profiles.ini > %TEMP%\temp.txt
set /p SALIDA= < %TEMP%\temp.txt
:: del %TEMP%\temp.txt
:: Si la ruta al perfil tiene la palabra "bigot" la variable "SALIDA" tiene contenido. Si lo tiene , salimos
IF "%SALIDA%" NEQ "" goto FIN
:: No encuentra palabra "bigot": Sacamos directorio del perfil y lo revisamos
for /F "tokens=2 delims=/ " %%a in ('findstr /I /c:"path" c:\users\%username%\appdata\roaming\thunderbird\profiles.ini') do (
    Call :REVISAPERFIL %%a
)
:REVISAPERFIL
:: Si en el perfil tiene una carpeta Mail o una carpeta IMAPMail considero que si está configurado thunderbird.
IF EXIST "c:\users\%username%\appdata\roaming\thunderbird\%1\Mail" SET LOCAL=1
IF EXIST "c:\users\%username%\appdata\roaming\thunderbird\%1\IMapMail" SET LOCAL=1
IF %LOCAL% EQU 1 echo "W7|%username%|%COMPUTERNAME%|%DATE%" >> %FICHERORESULTADOS%
:FIN
exit /b 0