@echo off
setlocal
:::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::"23/9/2025"~"martedì-23/settembre/2025 10:11:47"
:::::::::::::::::::::::::::::::::::::::::::::::::::
:::: queste variabili sono passate alle funzioni con "setlocal enabledelayedexpansion"
:::: dopo l'etichetta :STRLEN_ck_end
::::
::##_start_CK_online i primi 20 caratteri "::##_start_CK_online" sono un marcatore
:::: le righe di comando qui sotto vengono lette da curl per il controllo nella funzione :CK_ver
:::: "INFO_ver_date=dd/MM/yyyy"
set "INFO_ver_date=31/08/2025"
:::: "INFO_ver_time=HH:mm:s"
set "INFO_ver_time=09:09:59"
:::: le righe qui sopra vengono lette da curl per il controllo nella funzione :CK_ver
::##::_end_CK_online i primi 20 caratteri "::##::_end_CK_online" sono un marcatore
set "INFO_ver_date_yyyy=%INFO_ver_date:~-4%" & REM INFO_ver_date_yyyy==2025
set "INFO_ver_date_MMdd=%INFO_ver_date:~3,-5%%INFO_ver_date:~0,2%" & REM INFO_ver_date_MMdd==0831
set "INFO_ver_date_4_ck=%INFO_ver_date:~-4%%INFO_ver_date:~3,-5%%INFO_ver_date:~0,2%" & REM yyyyMMdd
set INFO_ver_time_4_ck=%INFO_ver_time::=%
if "%INFO_ver_time_4_ck:~0,1%" == "0" (
set "INFO_ver_time_4_ck=%INFO_ver_time_4_ck:~1,1000%"
)
if "%INFO_ver_time_4_ck:~0,1%" == " " (
set "INFO_ver_time_4_ck=%INFO_ver_time_4_ck: =%"
)
echo INFO_ver_date=%INFO_ver_date%
echo INFO_ver_date_4_ck=%INFO_ver_date_4_ck%
echo INFO_ver_time_4_ck=%INFO_ver_time_4_ck%
REM goto :EOF
REM set "INFO_ver_date_serial=%INFO_ver_date:/=%"
REM set "INFO_ver_date_serial=%INFO_ver_date_serial: =%"
REM set "INFO_ver_date_serial=%INFO_ver_date_serial::=%"
for /f "tokens=1,2 delims=:" %%A in ('chcp') do (
set "CHCP_OLD=%%B"
)
::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
chcp 65001 >nul
::::::::::::::::::::::::::::::::::::::::::::::::::::
:::: caratteri speciali > < | & )( ! " ^ sono interpretati
:::: in modo speciale da "setlocal enabledelayedexpansion"
:::: per lavorare con STRLEN trasformo i caratteri speciali
:::: in caratteri innocui a "setlocal enabledelayedexpansion"
::::
:::: limite della riga di comando
:::: https://learn.microsoft.com/it-IT/troubleshoot/windows-client/shell-experience/command-line-string-limitation
if /i "%1" == "strlen" (
set "STRLEN=%1"
)
if not defined STRLEN (
goto :STRLEN_ck_end
)
set "STR_4_strlen="%*""
::::::::::::::::::::::::
:::: REM ASCI 161 ¡ -The extended ASCII codes,Inverted exclamation mark- https://www.ascii-code.com/ - https://ss64.com/ascii.html
set "STR_4_strlen=%STR_4_strlen:!=¿%" & REM alt+0191==¿
set "STR_4_strlen=%STR_4_strlen:>=¿%"
set "STR_4_strlen=%STR_4_strlen:<=¿%"
set "STR_4_strlen=%STR_4_strlen:|=¿%"
set "STR_4_strlen=%STR_4_strlen:&=¿%"
REM set "STR_4_strlen=%STR_4_strlen:"=¶%" & REM alt+0182==¶
set "STR_4_strlen=%STR_4_strlen:"=•%" & REM alt+0149==•
set "STR_4_strlen=%STR_4_strlen:^=¿%"
set "STR_4_strlen=%STR_4_strlen:(=¿%"
set "STR_4_strlen=%STR_4_strlen:)=¿%"
::::::::::::::::::::::::
REM set "STR_quote=¶" & REM alt+0182==¶
set "STR_quote=•" & REM alt+0149==•
set "STR_quote_L=„‡»" & REM alt+0132==„ alt+0135==‡ alt+187==»
set "STR_quote_R=«‡„" & REM alt+0171==« alt+0135==‡ alt+0132==„
REM set "STR_quote_L=؇»" & REM alt+0216==Ø alt+0135==‡ alt+187==»
REM set "STR_quote_R=«‡Ø" & REM alt+0171==« alt+0135==‡ alt+0216==Ø
REM set "STR_quote_L=.‡»" & REM alt+0135==‡ alt+187==»
REM set "STR_quote_R=«‡." & REM alt+0171==« alt+0135==‡
REM set "STR_dummy=¿" „
set "STR_4_strlen=%STR_quote_L%%STR_4_strlen%%STR_quote_R%"
REM echo\00000000 STR_4_strlen==%STR_4_strlen%
:::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::
::::REM set "Q="!"" & call :STR_set_dummy "%Q%"
::::REM set "Q=">"" & call :STR_set_dummy "%Q%"
::::REM set "Q="<"" & call :STR_set_dummy "%Q%"
::::REM set "Q="|"" & call :STR_set_dummy "%Q%"
::::REM set "Q="&"" & call :STR_set_dummy "%Q%"
::::REM set "Q=")"" & call :STR_set_dummy "%Q%"
::::REM set "Q="("" & call :STR_set_dummy "%Q%"
::::REM set "Q="^^"" & call :STR_set_dummy "%Q%"
::::REM set "STR_4_strlen=%STR_4_strlen:"=•%"
::::REM REM call :STR_set_dummy "^"
::::
::::REM :STR_set_dummy
::::REM if not "%0" == ":STR_set_dummy" goto :STR_set_dummy_end
:::: REM REM set "Q=%~1"
:::: REM echo\ "Q==%Q~%"
:::: REM set "STR_4_strlen=%STR_4_strlen:%%Q~%%=%%STR_dummy%%"
:::: REM call set Q=
::::REM goto :EOF
::::REM :STR_set_dummy_end
::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::
REM echo\\\\\\\\\\01 error==%errorlevel%
REM echo\\\\\\\\\\STR_4_strlen==%STR_4_strlen%
:::::::::::::::::::::::
:STRLEN_ck_end
if not defined STR_4_strlen goto :STRLEN_no
(
endlocal
setlocal enabledelayedexpansion
set "STRLEN=%STRLEN%"
set "STR_quote=%STR_quote%"
set "STR_quote_L=%STR_quote_L%"
set "STR_quote_R=%STR_quote_R%"
set "STR_4_strlen=%STR_4_strlen%"
set "my_STR_length="
set "CHCP_OLD=%CHCP_OLD%"
set "INFO_ver_date=%INFO_ver_date%"
set "INFO_ver_time=%INFO_ver_time%"
)
goto :STRLEN_NEXT_start
:STRLEN_no
(
endlocal
setlocal enabledelayedexpansion
set "CHCP_OLD=%CHCP_OLD%"
set "INFO_ver_date=%INFO_ver_date%"
set "INFO_ver_time=%INFO_ver_time%"
)
:STRLEN_NEXT_start
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::: imposto un titolo alla finestrta in modo da poterla riconoscere
set "THIS_RANDOM=%random%"
title %~n0-%THIS_RANDOM% %username% "%cd%"
set N=
for /f "tokens=1,2,3" %%A in ('tasklist /NH /FI "WINDOWTITLE eq %~n0-%%THIS_RANDOM%% %%username%%*"') do (
set /a N+=1
if !N! EQU 1 (
set "B=%%B"
echo\!B! | findstr /r /c:"^[0-9][0-9]*.$" >nul 2>&1
if !errorlevel! EQU 0 (
set "THIS_file_pid=!B!"
REM echo\QQQ "THIS_file_pid==!THIS_file_pid! A==%%A - B==!B! pid==!THIS_file_pid! - C==%%C "
) else (
set "THIS_file_pid=%THIS_RANDOM:~2,-2%%date:/=% "
REM set "THIS_file_pid=%THIS_RANDOM:~0,2%dummy%date:/=%"
REM echo\WWW "THIS_file_pid==!THIS_file_pid! A==%%A - B==!B! pid==!THIS_file_pid! - C==%%C"
)
)
)
set N=
title %~n0-%THIS_file_pid%-%THIS_RANDOM% %username% "%cd%" & REM per identificare la consolle cmd
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
set "THIS_file=%~nx0"
set "THIS_file=%THIS_file:"=%"
set "THIS_file_size=%~z0"
set "THIS_file_date=%~t0"
:::: se "THIS_file_size" è definita, il valore di "%~dp0" è il percorso reale del file.
:::: se "THIS_file_size" non è definita, il valore di "%~dp0" è il percorco della directory al prompt che invoca lo script.
:::: -|Strano comportamento, se "%THIS_file%" è in un percorso in "path" e viene invocato il nome tra vergolette "nomeFile.cmd"
:::: -|"%~dp0" prende il valore della directory corrente e non della dir che contiene il "nomeFile.cmd"
:::: -|"THIS_file_size=%~z0" e "THIS_file_date=%~t0" sono valorizzate se "%~dp0" è il percorso reale a "nomeFile.cmd"
:::: if not [%cd%\]==[%~dp0] set "THIS_file_path=%~dp0"
if defined THIS_file_size set "THIS_file_path=%~dp0"
set "THIS_file_full_path=%THIS_file_path%%THIS_file%"
REM echo\-----------"cd=%cd%" "~dp0=%~dp0"
REM echo\-----------"THIS_file=%THIS_file%"
REM echo\-----------"THIS_file_path=%THIS_file_path%"
REM echo\-----------"THIS_file_size=%THIS_file_size%"
REM echo\-----------"THIS_file_date=%THIS_file_date%"
REM echo\-----------"THIS_file_full_path=%THIS_file_path%%THIS_file%"
REM echo\----------- 0=%0 0~=%~0 p=%~p0
set "ALL_0arg="%*""
set "TIME_start=%time%"
set "ERROR="
::::::::::::
:::: set "ESC=" & REM notepad++ "alt+27"
for /F "tokens=1,2 delims=#" %%a in ('"prompt #$H#$E# & echo on & for %%b in (1) do rem"') do ( set "ESC=%%b" )
set "C_RED=%ESC%^[91m" & REM Testo Rosso
set "C__=%ESC%^[4m" & REM Sottolineato
set "C_0=%ESC%^[0m" & REM Reset color
:::::::::::
set "RESET_all_var=for /f "delims=^=" %%Z in ^('@set my_'^) do @set "%%Z=" "
:::: Il carattere § viene sostituito da %LF% "echo %MSG:§=!LF!%"
set "MSG=-visualizza con ^"set my_^" §-resetta, elimina tutte le var ^"my_^" §* %RESET_all_var% §- exit %%errorlevel%% EQU-Uguale 0 -successo- §- exit %%errorlevel%% GEQ-Maggiore o uguale a 1 -errore-"
::::::::::
:::: imposto Line-Fedd
:::: dopo LF=^ 2 righe vuote da non eliminare
set LF=^
:::::::::::::::::: 2 righe vuote da non eliminare
if exist "%THIS_file_path%UnxUtils\tr.exe" (
set "TR_exe=%THIS_file_path%UnxUtils\tr.exe"
)
if exist "%THIS_file_path%cmdow.exe" (
set "CMDOW_exe=%THIS_file_path%cmdow.exe"
)
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
if "%1"=="" (
set "ERROR_start=Manca il parametro corretto"
call :HEADER
call :SOS_all
call :FOOTER
)
if /i "%1"=="CK_ver" (
call :HEADER
goto :%~1
)
:::::::::::::::::::
if /i "%1"=="my_ip4" (
call :HEADER
goto :%~1
)
if /i "%1"=="ip4" (
call :HEADER
goto :my_ip4
)
:::::::::::::::::::
if /i "%1"=="where_is_ff" (
call :HEADER
goto :%~1
)
if /i "%1"=="my_date" (
call :HEADER
goto :%~1
)
if /i "%1"=="geoip" (
call :HEADER
goto :%~1
)
if /i "%1"=="user_is_admin" (
call :HEADER
goto :%~1
)
if /i "%1"=="run_as_admin" (
call :HEADER
goto :%~1
)
if /i "%1"=="NIC" (
call :HEADER
goto :%~1
)
if /i "%1"=="strlen" (
call :HEADER
goto :%~1
)
if /i "%1"=="-h" set "SOS=-h"
if /i "%1"=="/h" set "SOS=/h"
if /i "%1"=="h" set "SOS=h"
if /i "%1"=="/?" set "SOS=/?"
if /i "%1"=="-?" set "SOS=-?"
if /i "%1"=="?" set "SOS=^?"
if /i "%1"=="help" set "SOS=help"
if defined SOS (
set "H_P2=%~2"
call :HEADER
if defined H_P2 (
for /f "tokens=*" %%A in ( 'findstr /r /x /c:"^[:][A-Z_0-9].*_sos$" "%THIS_file_full_path%"' ) do (
set "X=%%A"
set "X=!X::=!"
set "X=!X:_sos=!"
if /i "!X!"=="!H_P2!" (
set "ALL_0arg=%1 !H_P2!"
set "ERROR_help=sos per "!H_P2!""
if !X!§==RUN_AS_ADMIN§ set Xopt=NO_CMDOW_exe
call %%A !X! !Xopt!
echo\::------
echo\::%MSG:§=!LF!::%
call :FOOTER
exit /b %ERROR%
)
)
if /i "!H_P2!"=="all" (
set "ERROR_help=sos per "!H_P2!"..."
for /f "tokens=*" %%A in ( 'findstr /r /x /c:"^[:][A-Z_0-9].*_sos$" "%THIS_file_full_path%"' ) do (
set "ALL_0arg=%1 !H_P2!"
set "X=%%A"
set "X=!X::=!"
set "X=!X:_sos=!"
call %%A !X!
echo\::^|-----------------
echo\::------------------
)
echo\::%MSG:§=!LF!::%
call :FOOTER
exit /b %ERROR%
)
)
if not defined H_P2 (
REM set "ERROR_parametro_-h="%1" richiede valore"
set "ERROR_parametro_%SOS%="%1" richiede valore"
echo\::* %THIS_file% %1
echo\:: -richiede parametro... .. .
for /f "tokens=*" %%A in ( 'findstr /r /x /c:"^[:][A-Z_0-9].*_sos$" "%THIS_file_full_path%"' ) do (
set "X=%%A"
set "X=!X::=!"
set "X=!X:_sos=!"
echo\:: !X!
)
call :FOOTER
exit /b %ERROR%
)
if not "!H_P2!"=="" (
set "ERROR_parametro_%SOS%=^"!H_P2!^" non valido^"
echo\::* %THIS_file% %1 !H_P2!
echo\:: PARAMETRO "!H_P2!" non valido
set N=
for /f "tokens=*" %%A in ( 'findstr /r /x /c:"^[:][A-Z_0-9].*_sos$" "%THIS_file_full_path%" ^| sort' ) do (
set /a N+=1
set "X=%%A"
set "X=!X::=!"
set "X=!X:_sos=!"
if !N! EQU 1 (
echo\:: prova %1 !X!
) else (
echo\:: %1 !X!
)
)
set N=
call :FOOTER
exit /b %ERROR%
)
)
if not "%1"=="" (
set "ERROR_parametro=Parametro "%~1" non valido "
call :HEADER
call :SOS_all
call :FOOTER
exit /b %ERROR%
)
::::
::::
::::
goto :EOF
:START
REM :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
REM ::::::::::: modello per nuove funzioni ::::::::::::::::::::::::::::::::
REM :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
REM :::::::::::::: my_function ::::::::::::::::::::::::::::::::::::::::::::::
REM :::::::::::::: my_function ::::::::::::::::::::::::::::::::::::::::::::::
REM goto :function_end
REM :function
REM :FUNCTION_sos
REM if not "%~0"==":FUNCTION_sos" goto :function_sos_end
REM echo\::* %THIS_file% %C__%%~1%C_0% .
REM echo\:: la funzione di sos deve iniziare con "^[:][A-Z0-9]*[_].*"
REM echo\:: deve finire con ".*_sos$"
REM echo\:: scrivi qui sos per my_function
REM echo\::
REM echo\::
REM echo\::
REM echo\::
REM exit /b %ERROR%
REM :function_sos_end
REM echo scrivi qui lo script da eseguire
REM echo scrivi qui lo script da eseguire
REM echo scrivi qui lo script da eseguire
REM if "%qualche errore per uscire%"=="qualche errore per uscire" (
REM set "ERROR_brevissima_descrizione=spiegazione estesa ma concisa"
REM echo\::
REM echo\:: ERRORE bla bla bla
REM echo\::
REM call :FOOTER
REM exit /b %ERROR%
REM )
REM echo\::::::::::::::::::::::::::::::::::::::::
REM echo\::%MSG:§=!LF!::%
REM call :FOOTER
REM (
REM endlocal
REM set "my_VAR_00=%VALORE00_da restituire%"
REM set "my_VAR_01=%VALORE01_da restituire%"
REM exit /b %ERROR%
REM )
REM :function_end
REM :::::::::::::: function end ::::::::::::::::::::::::::::::::::::::::::
REM :::::::::::::: function end ::::::::::::::::::::::::::::::::::::::::::
REM :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
REM ::::::::::: fine modello per nuove funzioni :::::::::::::::::::::::::::
REM :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
REM :::::::::::::: CK_ver ::::::::::::::::::::::::::::::::::::::::::::::
REM :::::::::::::: CK_ver ::::::::::::::::::::::::::::::::::::::::::::::
goto :CK_ver_end
:CK_ver
:CK_ver_sos
if not "%~0"==":CK_ver_sos" goto :CK_ver_sos_end
echo\::* %THIS_file% %C__%%~1%C_0% .
echo\::
echo\:: controlla la versione attuale
echo\:: * %THIS_file_full_path% %INFO_ver_date%
echo\:: con la versione on line
echo\:: * "https://codeberg.org/marioq59/win_cmd/src/branch/main/usefulTools.cmd"
echo\::
echo\:: la funzione di sos deve iniziare con "^[:][A-Z0-9]*[_].*"
echo\:: deve finire con ".*_sos$"
echo\:: scrivi qui sos per my_function
echo\::
echo\::
exit /b %ERROR%
:CK_ver_sos_end
REM set "CAT_this=type C:\Users\PARETO-User\myScripts\usefultools.cmd"
set "URL4curl=https://codeberg.org/marioq59/win_cmd/raw/branch/main/usefulTools.cmd"
set "CAT_this=curl.exe -f -s -S -k -L -B -R --retry 1 -A "%THIS_file:~0,-4%-%THIS_file_pid%" %URL4curl%"
set "PING_this_2=gnu.org"
set "PING_this_1=codeberg.org"
set "PING_this_1=127.0.0.1"
if "%CAT_this:~0,4%"=="type" set "PING_this=127.0.0.1"
if "%CAT_this:~0,4%"=="curl" set "PING_this=%PING_this_1%"
REM ping -a -n 1 %PING_this% | findstr /i /r /c:".*[[][0-9:].*" >nul
REM for /f "tokens=1,2 delims=^=" %%A in ( 'set PING_this_' ) do (
REM ping -a -n 1 %%B >nul
REM if !errorlevel! GTR 0 (
REM set "ERROR_geoip_no_internet=connessione a internet non disponibile"
REM set "NO_PING_this=%%B"
REM )
REM if !errorlevel! EQU 0 (
REM set "ERROR_geoip_no_internet="
REM set "NO_PING_this="
REM )
REM if defined ERROR_geoip_no_internet (
REM ping -a -n 1 %%B >nul
REM if !errorlevel! GTR 0 (
REM set "ERROR_geoip_no_internet=connessione a internet non disponibile"
REM set "NO_PING_this=%%B"
REM )
REM )
REM )
REM if defined NO_PING_this (
REM echo\::
REM echo\:: connessione a internet non disponibile
REM echo\:: [ping -a -n 1 %NO_PING_this%] senza risposta
REM echo\::
REM call :FOOTER
REM exit /b %ERROR%
REM )
REM ping -a -n 1 -f %PING_this% >nul
ping -a -n 1 -l 8 -f -w 128 %PING_this% >nul
if %errorlevel% GTR 0 (
set "ERROR_ck_ver_no_internet=connessione a internet non disponibile"
echo\::
echo\:: connessione internet a "%PING_this%" non disponibile
echo\:: [ping -a -n 2 -l 8 -f -w 128 %PING_this%] senza risposta
echo\::
call :FOOTER
exit /b %ERROR%
)
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
REM echo\:: %CAT_this%
set "THIS_file.online=%temp%\%THIS_file%.online"
REM set "THIS_file.online=C:\Users\sysop\AppData\Local\Temp\%THIS_file%.online"
( echo. >"%THIS_file.online%" 2>&1 ) 2>nul & REM a schermo non visualizza l'errore
if not exist "%THIS_file.online%" (
set "ERROR_ck_ver_del=errore nel gestire "%THIS_file.online%""
echo\::
echo\:: non posso scrivere "%THIS_file.online%"
echo\:: File richiesto per %THIS_file_full_path% %1
echo\::
call :FOOTER
exit /b %ERROR%
)
%CAT_this% >%THIS_file.online% 2>&1
REM %CAT_this% >nul 2>&1
set CURL_error=%errorlevel%
if "%CURL_error%" NEQ "0" (
echo\::
echo\:: %CAT_this%
echo\::
set "CAT_this=!CAT_this! 2^>^&1"
set N=0
set "N_txt="
for /f "tokens=* delims=" %%Z in ( '!CAT_this!' ) do (
REM echo\\\\Z==%%Z
set /a N+=1
set "N_txt=%%Z"
echo\:: exit error !CURL_error! "!N_txt!"
)
echo\::
if exist "%THIS_file.online%" del /q "%THIS_file.online%"
if not exist "%THIS_file.online%" set ERROR_ck_ver_del=errore nel gestire "%THIS_file.online%"
set "ERROR_CURL_ck=!CURL_error! !N_txt!"
call :FOOTER
exit /b %ERROR%
)
if "%CURL_error%" EQU "0" (
set N=0
set N_txt=
set CK_ok=
echo\::
echo\:: %CAT_this%
echo\::
for /f "tokens=* delims=" %%Q in ( '%CAT_this%' ) do (
set /a N+=1
set "N_txt=%%Q"
REM 20 caratteri "::##_start_CK_online"
if "!N_txt:~0,20!"=="::##_start_CK_online" ( REM "::##_start_CK_online" marcatore
set /a CK_ok+=1
)
if !CK_ok! EQU 1 (
set "VAR_dummy="
if not "!N_txt:~0,2!"=="::" (
REM echo\#----------!N! !N_txt!
set "VAR_dummy=!N_txt:set =!"
set "VAR_dummy=!VAR_dummy:"=!"
echo\"VAR_dummy=!VAR_dummy!"
for /f "usebackq tokens=1,2 delims=^=" %%G in ( '!VAR_dummy!' ) do (
echo\\#\#\#\#\ G=%%G H=%%H
set "_%THIS_file:~0,-4%_date_online=%%H"
)
set "VAR_dummy="
REM echo\#----------!N! !N_txt!
set VAR_dummy=!N_txt: =!
set VAR_dummy=!VAR_dummy:"=!
set VAR_dummy=!VAR_dummy:set=!
set VAR_dummy=!VAR_dummy:/=!
set VAR_dummy=!VAR_dummy::=!
REM echo\@----------!N! !N_txt!
for /f "tokens=1,2 delims=^=" %%A in ( 'echo\!VAR_dummy!' ) do (
set "_%THIS_file:~0,-4%_date_serial_online=%%B"
)
)
)
REM 20 caratteri "::##::_end_CK_online"
if "!N_txt:~0,20!"=="::##::_end_CK_online" ( REM "::##::_end_CK_online" marcatore
set "CK_ok=0"
)
)
)
echo\:: set _%THIS_file:~0,-4%_date_
set _%THIS_file:~0,-4%_date_
echo\:: set INFO_ver_date
set INFO_ver_date
for /f "tokens=1,2 delims=^=" %%R in ( 'set INFO_ver_date' ) do (
set "R=%%R"
set "S=%%S"
REM echo\ "R==!R!" "S==!S!"
if "!R!"=="INFO_ver_date" set "_%THIS_file:~0,-4%_date=!S!"
if "!R!"=="INFO_ver_date_serial" set "_%THIS_file:~0,-4%_date_serial=!S!"
)
REM set /a INFO_ver_date_serial-=10
REM set /a _%THIS_file:~0,-4%_date_serial+=10
set /a _%THIS_file:~0,-4%_date_serial-=10
echo\\\\\\--------!_%THIS_file:~0,-4%_date_serial!
echo\\\\\\--------!_%THIS_file:~0,-4%_date_serial_online!
echo\############# set _%THIS_file:~0,-4%
set _%THIS_file:~0,-4%
if !_%THIS_file:~0,-4%_date_serial! EQU !_%THIS_file:~0,-4%_date_serial_online! (
echo\::
echo\::___________versioni uguali
echo\::
)
if !_%THIS_file:~0,-4%_date_serial! LSS !_%THIS_file:~0,-4%_date_serial_online! (
echo\::
echo\::___________la versione corrente %INFO_ver_date% è meno recente di quella on line !_%THIS_file:~0,-4%_date_online!
echo\:: !_%THIS_file:~0,-4%_date_serial! ninore di !_%THIS_file:~0,-4%_date_serial_online!
echo\:: Questo valore è il resto della divisione del numero per 2^32 (4,294,967,296).
echo\::
)
if !_%THIS_file:~0,-4%_date_serial! GTR !_%THIS_file:~0,-4%_date_serial_online! (
echo\::
echo\::___________la versione corrente %INFO_ver_date% è più aggiornata di quella on line !_%THIS_file:~0,-4%_date_online!
echo\::
)
echo\#############
echo\::
echo\::
echo\::%MSG:§=!LF!::%
call :FOOTER
REM exit /b %ERROR%
for /f "tokens=1,2 delims=^=" %%a in ( 'set _%THIS_file:~0,-4%_' ) do (
if not defined Nn set /a Nn+=1
if !Nn! EQU 1 (
endlocal
)
set Nn=
set "my%%a=%%b"
)
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
REM if "%qualche errore per uscire%"=="qualche errore per uscire" (
REM set "ERROR_brevissima_descrizione=spiegazione estesa ma concisa"
REM echo\::
REM echo\:: ERRORE bla bla bla
REM echo\::
REM call :FOOTER
REM exit /b %ERROR%
REM )
REM echo\::::::::::::::::::::::::::::::::::::::::
REM echo\::%MSG:§=!LF!::%
REM call :FOOTER
REM exit /b %ERROR%
REM (
REM endlocal
REM set "my_VAR_00=%VALORE00_da restituire%"
REM set "my_VAR_01=%VALORE01_da restituire%"
REM exit /b %ERROR%
REM )
:CK_ver_end
:::::::::::::: CK_ver end ::::::::::::::::::::::::::::::::::::::::::
:::::::::::::: CK_ver end ::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::: STRLEN ::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::: STRLEN ::::::::::::::::::::::::::::::::::::::::::::::
goto :STRlen_end
:strlen
:STRLEN_sos
if not "%~0"==":STRLEN_sos" goto :STRLEN_sos_end
echo\::* %THIS_file% %C__%%~1%C_0% .
echo\::
echo\:: Conta la lunghezza di una stringa di caratteri passata come argomento
echo\:: ed imposta la variabile my_STR_length con il valore della lunghezza.
echo\::* La lunghezza massima della stringa che è possibile usare al prompt
echo\:: dei comandi è di 8191 caratteri.
REM echo\::*https://learn.microsoft.com/it-IT/troubleshoot/windows-client/shell-experience/command-line-string-limitation
echo\::* Caratteri speciali %C_RED%^)^("^!^>^|^<^&^^ %C_0% devono essere racchiusi tra %C_RED%"%C_0%^)^(^!^>^|^<^&^^%C_RED%"%C_0%
echo\:: Prima del conteggio sono trasformati in caratteri innocui.
echo\:: %C_RED%^)^(^!^>^|^<^&^^ %C_0%sono sostituiti con %C_RED%¿%C_0%, %C_RED%^" %C_0%é sostituita con %C_RED%•%C_0% .
REM echo\:: I caratteri di reindirizzamento e di raggruppamento %C_RED%)(^>^|^<^& %C_0% devono essere racchiusi con ^"%C_RED%^>^|^<^&%C_0%^"
echo\:: Esempio:
echo\:: * %THIS_file% %~1 topolino pippo e pluto
echo\:: restituisce la variabile my_STR_length=22
echo\:: * %THIS_file% %~1 topolino pippo e pluto ">|<&"
echo\:: restituisce la variabile my_STR_length=29
echo\:: *^|%THIS_file% %~1 "topolino pippo e pluto "^>^|^<^&"
echo\:: ^| non viene eseguita.
echo\:: ^| Il secondo " chiude la stringa che non viene riaperta per >|<&"
echo\:: *^|%THIS_file% %~1 "topolino pippo e pluto "">|<&"
echo\:: ^| così va bene, restituisce la variabile my_STR_length=31
echo\:: * %THIS_file% %~1 "topolino > pippo < & | pluto! >|<&"
echo\:: restituisce la variabile my_STR_length=35
exit /b %ERROR%
:strlen_sos_end
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
if defined STR_4_strlen (
if not "%STR_4_strlen:~50,60%"=="" (
set "STR_4_strlen_dummy=!STR_4_strlen:%STR_quote_L%%STR_quote%%STRLEN%=!"
set "ALL_0arg=%1 !STR_4_strlen_dummy:~0,35!... .. . .continua"
) else (
set "STR_4_strlen_dummy=!STR_4_strlen:%STR_quote_L%%STR_quote%%STRLEN%=!"
set "STR_4_strlen_dummy=!STR_4_strlen_dummy:%STR_quote%%STR_quote_R%=!"
set "ALL_0arg=%1 !STR_4_strlen_dummy!"
)
)
set "my_STR_length="
:::: rimuovo strlen all'inizio di %*
REM echo\:: 00 STR_4_strlen==^|%STR_4_strlen%^|
set "STR_4_strlen=!STR_4_strlen:%STR_quote_L%%STR_quote%%STRLEN%=%STR_quote_L%%STR_quote%!"
REM echo\:: 01 STR_4_strlen==^|%STR_4_strlen%^|
set /a N_blank=0
REM rimuovo gli spazi iniziali
:STR_4_strlen_loop
REM echo\:: loop %N_blank% STRLEN==^|%STRLEN%^|
if "%STR_4_strlen:~0,5%" == "%STR_quote_L%%STR_quote% " (
set "STR_4_strlen=!STR_4_strlen:%STR_quote_L%%STR_quote% =%STR_quote_L%%STR_quote%!"
set "STRLEN=!STRLEN! "
set /a N_blank+=1
goto :STR_4_strlen_loop
)
REM echo\:: 1 STR_4_strlen==^|!STR_4_strlen!^|
set "STR_4_strlen=!STR_4_strlen:%STR_quote_L%%STR_quote%=!"
set "STR_4_strlen=!STR_4_strlen:%STR_quote%%STR_quote_R%=!"
REM echo\:: 02 STR_4_strlen==^|%STR_4_strlen%^|
if "%STR_4_strlen%" == "" (
set "ERROR_strlen_no_string=STRLEN senza stringa da contare"
echo\::
echo\:: PARAMETRO %%1 "%1" OK
echo\:: !ERROR_strlen_no_string!
echo\:: Fornisci una stringa per contarne la lunghezza
echo\::
call :FOOTER
exit /b %ERROR%
)
if not "!STR_4_strlen:~50,60!"=="" (
echo\::
echo\:: caratteri speciali %C_RED%^)^("^!^>^|^<^&^^ %C_0%
echo\:: sono trattati in modo speciale; vedi
echo\:: ** %THIS_file% ? strlen
echo\::
echo\:: !STR_4_strlen:~0,35!... .. . .continua
) else (
echo\::
echo\:: caratteri speciali %C_RED%^)^("^!^>^|^<^&^^ %C_0%
echo\:: sono trattati im modo speciale; vedi
echo\:: ** %THIS_file% help strlen
echo\::
echo\:: !STR_4_strlen!
)
call :STRLEN_count
echo\:: restituisce la variabile
echo\:: my_STR_length=%_STR_length%
echo\::
:STRLEN_count
if not "%0"==":STRLEN_count" goto :STRLEN_count_end
set /a len=0
:STRLEN_count_loop
if not "!STR_4_strlen:~%len%!"=="" set /a len+=1 & goto :STRLEN_count_loop
set _STR_length=%len%
goto :EOF
:STRLEN_count_end
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
echo\::::::::::::::::::::::::::::::::::::::::
echo\::%MSG:§=!LF!::%
call :FOOTER
(
endlocal
set "my_STR_length=%_STR_length%"
exit /b %ERROR%
)
:strlen_end
:::::::::::::: STRLEN end ::::::::::::::::::::::::::::::::::::::::::
:::::::::::::: STRLEN end ::::::::::::::::::::::::::::::::::::::::::
:::::::::::::: NIC ::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::: NIC ::::::::::::::::::::::::::::::::::::::::::::::
goto :nic_end
:NIC
REM setlocal enabledelayedexpansion
:NIC_sos
if not "%~0"==":NIC_sos" goto :NIC_sos_end
echo\::* %THIS_file% %C__%%~1%C_0% .
echo\::
echo\:: per ogni scheda di rete con IP restituisce
echo\:: alcuni utili valori
exit /b %ERROR%
:NIC_sos_end
::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::: esempio di comando per info su Wi-Fi
:::: Netsh WLAN show interfaces
:::: visualizza la passwd della commessione Wi-Fi
:::: netsh wlan show profile name="NOME-PROFILO" key=clear
:::: esempio di risposta al comando:
:::: wmic nic where "netenabled=true" get /format:list
:::: da qui prendo il valore
:::: index, macaddress, netconnectionid, speed
::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::: AdapterType=Ethernet 802.3
:::: AdapterTypeId=0
:::: AutoSense=
:::: Availability=3
:::: Caption=[00000008] TP-Link Wireless USB Adapter
:::: ConfigManagerErrorCode=0
:::: ConfigManagerUserConfig=FALSE
:::: CreationClassName=Win32_NetworkAdapter
:::: Description=TP-Link Wireless USB Adapter
:::: DeviceID=8
:::: ErrorCleared=
:::: ErrorDescription=
:::: GUID={E8C2B227-0E77-4C38-B35F-46A3C86EBD52}
:::: Index=8
:::: InstallDate=
:::: Installed=TRUE
:::: InterfaceIndex=23
:::: LastErrorCode=
:::: MACAddress=D0:37:45:94:14:58
:::: Manufacturer=Realtek Semiconductor Corp.
:::: MaxNumberControlled=0
:::: MaxSpeed=
:::: Name=TP-Link Wireless USB Adapter
:::: NetConnectionID=Wi-Fi
:::: NetConnectionStatus=2
:::: NetEnabled=TRUE
:::: NetworkAddresses=
:::: PermanentAddress=
:::: PhysicalAdapter=TRUE
:::: PNPDeviceID=USB\VID_2357&PID_011F\00E04C000001
:::: PowerManagementCapabilities=
:::: PowerManagementSupported=FALSE
:::: ProductName=TP-Link Wireless USB Adapter
:::: ServiceName=RtlWlanu
:::: Speed=120000000
:::: Status=
:::: StatusInfo=
:::: SystemCreationClassName=Win32_ComputerSystem
:::: SystemName=HP1864
:::: TimeOfLastReset=20240516075523.500000+120
::::::::::::::::::::::::::::::::::::::::::::::::::::::::
for /f "tokens=1,2 delims=^= " %%a in ('wmic nic where "netenabled=true" get /format:list 2^>nul') do (
set "Xa="
set "Xb="
set "Xa=%%a"
set "Xb=%%b"
if defined Xb (
if /i "%%a" == "index" (
set /a N_nic+=1
set "_NIC_!N_nic!_%%a=%%b"
)
if /i "%%a" == "macaddress" (
set "_NIC_!N_nic!_%%a=%%b"
)
if /i "%%a" == "netconnectionid" (
REM Ethernet - Wi-Fi ....
set "_NIC_!N_nic!_%%a=%%b"
)
if /i "%%a" == "speed" (
set "_NIC_!N_nic!_%%a=%%b"
)
)
)
::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::
if not defined N_nic (
set "ERROR_no_nic=NO NIC-Network Interface Controller- con IP"
echo\::
echo\:: no nic -Network Interface Controller-
echo\:: nessuna scheda abilitata con IP
echo\::
call :FOOTER
exit /b %ERROR%
)
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::: esempio di risposta al comando:
:::: wmic nicconfig where (index="!INDEX_N!" and macaddress="!MAC_N!") get %SEARC_NIC_PROPERTY% /format:list"
:::: Visualizza tutte le proprietà
:::: wmic nicconfig where IPEnabled=TRUE get /format:list
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::: ArpAlwaysSourceRoute=
:::: ArpUseEtherSNAP=
:::: Caption=[00000012] Realtek USB GbE Family Controller
:::: DatabasePath=%SystemRoot%\System32\drivers\etc
:::: DeadGWDetectEnabled=
:::: DefaultIPGateway={"172.28.0.1"}
:::: DefaultTOS=
:::: DefaultTTL=
:::: Description=Realtek USB GbE Family Controller
:::: DHCPEnabled=TRUE
:::: DHCPLeaseExpires=20240516112847.000000+120
:::: DHCPLeaseObtained=20240516085207.000000+120
:::: DHCPServer=172.28.0.1
:::: DNSDomain=lanpareto
:::: DNSDomainSuffixSearchOrder={"lanpareto"}
:::: DNSEnabledForWINSResolution=FALSE
:::: DNSHostName=hp1864
:::: DNSServerSearchOrder={"172.28.0.1"}
:::: DomainDNSRegistrationEnabled=FALSE
:::: ForwardBufferMemory=
:::: FullDNSRegistrationEnabled=TRUE
:::: GatewayCostMetric={0}
:::: IGMPLevel=
:::: Index=12
:::: InterfaceIndex=14
:::: IPAddress={"172.28.5.214","fe80::7e5:2359:2836:5bcb"}
:::: IPConnectionMetric=25
:::: IPEnabled=TRUE
:::: IPFilterSecurityEnabled=FALSE
:::: IPPortSecurityEnabled=
:::: IPSecPermitIPProtocols={}
:::: IPSecPermitTCPPorts={}
:::: IPSecPermitUDPPorts={}
:::: IPSubnet={"255.255.0.0","64"}
:::: IPUseZeroBroadcast=
:::: IPXAddress=
:::: IPXEnabled=
:::: IPXFrameType=
:::: IPXMediaType=
:::: IPXNetworkNumber=
:::: IPXVirtualNetNumber=
:::: KeepAliveInterval=
:::: KeepAliveTime=
:::: MACAddress=00:E0:4C:68:B7:3D
:::: MTU=
:::: NumForwardPackets=
:::: PMTUBHDetectEnabled=
:::: PMTUDiscoveryEnabled=
:::: ServiceName=rtux64w10
:::: SettingID={9D499C5D-EA64-4740-BC3B-B82065415004}
:::: TcpipNetbiosOptions=0
:::: TcpMaxConnectRetransmissions=
:::: TcpMaxDataRetransmissions=
:::: TcpNumConnections=
:::: TcpUseRFC1122UrgentPointer=
:::: TcpWindowSize=
:::: WINSEnableLMHostsLookup=TRUE
:::: WINSHostLookupFile=
:::: WINSPrimaryServer=172.28.0.1
:::: WINSScopeID=
:::: WINSSecondaryServer=
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::
set "SEARC_NIC_PROPERTY=DefaultIPGateway^,Description"
set "SEARC_NIC_PROPERTY=%SEARC_NIC_PROPERTY%^,DHCPEnabled"
set "SEARC_NIC_PROPERTY=%SEARC_NIC_PROPERTY%^,DHCPServer"
set "SEARC_NIC_PROPERTY=%SEARC_NIC_PROPERTY%^,DNSDomain"
set "SEARC_NIC_PROPERTY=%SEARC_NIC_PROPERTY%^,DNSDomainSuffixSearchOrder"
set "SEARC_NIC_PROPERTY=%SEARC_NIC_PROPERTY%^,DNSHostName"
set "SEARC_NIC_PROPERTY=%SEARC_NIC_PROPERTY%^,DNSServerSearchOrder"
set "SEARC_NIC_PROPERTY=%SEARC_NIC_PROPERTY%^,IPAddress"
set "SEARC_NIC_PROPERTY=%SEARC_NIC_PROPERTY%^,IPConnectionMetric"
set "SEARC_NIC_PROPERTY=%SEARC_NIC_PROPERTY%^,IPSubnet"
set "SEARC_NIC_PROPERTY=%SEARC_NIC_PROPERTY%^,MACAddress"
REM Computer\HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\{SettingID}
set "SEARC_NIC_PROPERTY=%SEARC_NIC_PROPERTY%^,SettingID"
echo\:: Network-Interface-Controller
echo\:: %N_nic% NIC con ip assegnato
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::: Visualizza tutte le proprietà
:::: wmic nicconfig where IPEnabled=TRUE get /format:list
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::
for /L %%a in (1,1,%N_nic%) do (
set "INDEX_N="
set "MAC_N="
set "INDEX_N=!_NIC_%%a_index!"
set "MAC_N=!_NIC_%%a_macaddress!"
for /f "tokens=1,2 delims=^=" %%A in ('"wmic nicconfig where (index="!INDEX_N!" and macaddress="!MAC_N!") get %SEARC_NIC_PROPERTY% /format:list"') do (
set "Y_A="
set "Y_B="
set "Y_A=%%A"
set "Y_B=%%B"
if defined Y_B (
set "Y_B=!Y_B:{=!"
set "Y_B=!Y_B:}=!"
set "Y_B=!Y_B:"=!"
set "Y_B=!Y_B:,=-!"
set "_NIC_%%a_!Y_A!=!Y_B!"
)
)
for /f "tokens=1,2 delims=^=" %%T in ('set _NIC_%%a') do (
set "T=%%T"
set "T=!T:_NIC_%%a_=!"
REM if /i not "!T!" == "index" (
call :NIC_all_property %%a "!T!=%%U"
REM set "_NIC_%%a_index="
REM )
)
)
:NIC_all_property
if not "%0" == ":NIC_all_property" goto :NIC_all_property_end
set "X2=%~2"
set "_NIC_%1_all_property="!X2!" !_NIC_%1_all_property!"
goto :EOF
:NIC_all_property_end
::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::
echo\::::::::::::::::::::::::::::::::::::::::
echo\:: my_NIC_N=%N_nic%
for /f "tokens=*" %%L in ('set _NIC_') do (
echo\%%L | findstr /r /c:"_NIC_[0-9]*_all_property" >nul
if !errorlevel! EQU 0 (
set "DUMMY_nic_prop=%%L"
set "DUMMY_nic_prop=!DUMMY_nic_prop:"='!
call :NIC_all_prop_split "!DUMMY_nic_prop!"
) else (
echo\:: my%%L
)
)
:NIC_all_prop_split
if not "%0" == ":NIC_all_prop_split" goto :NIC_all_prop_split_end
set "K="
set "K=%~1"
set "K=!K:' '=§!"
set "K=!K:'="!"
echo\::my%K:§=!LF!:: %
goto :EOF
:NIC_all_prop_split_end
::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::
echo\::::::::::::::::::::::::::::::::::::::::
echo\:: %N_nic% NIC con ip asegnato
echo\::::::::::::::::::::::::::::::::::::::::
echo\::%MSG:§=!LF!::%
call :FOOTER
set "N="
for /f "tokens=*" %%G in ('set _NIC_') do (
REM echo\@@@@@@@ G==%%G
set /a N+=1
REM echo N==!N!
REM if "!N!" EQU "1" endlocal & endlocal
if "!N!" EQU "1" endlocal & set "my_NIC_N=%N_nic%"
REM echo\@1@1@1@ G==%%G
set "my%%G"
)
set "N="
exit /b 0
:nic_end
:::::::::::::: NIC end ::::::::::::::::::::::::::::::::::::::::::
:::::::::::::: NIC end ::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::: run_as_admin ::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::: run_as_admin ::::::::::::::::::::::::::::::::::::::::::::::
goto :run_as_admin_end
:run_as_admin
:RUN_AS_ADMIN_sos
if not "%~0"==":RUN_AS_ADMIN_sos" goto :run_as_admin_sos_end
echo\::* %THIS_file% %C__%%~1%C_0% . & REM %2 .
echo\::
echo\:: %%2="path al file da eseguire come Administrators"
echo\:: %%3="eventuali parametri da passare"
echo\:: Spazi vuoti devono essere racchiusi tra " "
echo\:: Esempio:
echo\:: %THIS_file% %1 %%comspec%%
echo\:: esegue %C__%%comspec%%C_0% con permessi elevati
echo\:: %THIS_file% %1 "c:\my dir\my file.exe" "parametro_1 parametro_2"
echo\:: esegue %C__%"c:\my dir\my file.exe" parametro_1 parametro_2%C_0% con permessi elevati
if "%2"=="NO_CMDOW_exe" (
echo\::---------------------
echo\:: %C__%%~1%C_0% funziona con %C__%cmdow.exe%C_0% . ^(funziona anche con powershell^)
echo\:: CMDOW [Version 1.4.8] Win32 Commandline Window Utility for NT4/2000/XP/7.
echo\:: ^(C^) Copyright 2001-2014 Ritchie Lawrence, http://www.commandline.co.uk.
echo\:: https://github.com/ritchielawrence/cmdow/
echo\:: https://ritchielawrence.github.io/cmdow/
echo\:: Download: https://github.com/ritchielawrence/cmdow/blob/master/bin/Release/cmdow.exe
echo\::
echo\:: Molti anrivirus individuano cmdow.exe come virus perchè legge ed elabora
echo\:: informazioni che %C__%$%C_0%windows%C__%$%C_0% non accetta. Non è vero.
echo\::-OPEN-SOURCE "MIT license" garantisce ciò che cmdow.exe elabora.
echo\:: Istruisci il tuo antivirus a considerare cmdow.exe un programma sano.
echo\:: https://github.com/ritchielawrence/cmdow?tab=readme-ov-file#is-cmdow-malware
echo\::::::::::::::::::::::::::::::::::::::::
)
exit /b %ERROR%
:run_as_admin_sos_end
:: https://ss64.com/vb/syntax-elevate.html
if "%~2"§==""§ (
set "ERROR_run_as_admin_P2=Parametro 2 nul"
echo\::
echo\:: "%~1" Richiesto un percorso completo ad un file
echo\:: da eseguire in una consolle con privilegi elevati.
echo\:: Se contiene spazi racchiudere tra " "
echo\::
call :FOOTER
exit /b %ERROR%
)
if exist "%~f2" (
if "%~x2"§==""§ (
set "ERROR_run_as_admin_P2=Parametro 2.NO_estensione"
echo\::
echo\:: Richiesto un percorso completo ad un file compreso l'estensione
echo\:: "%~2".NO_estensione??
echo\:: se contiene spazi racchiudere tra " "
echo\::
call :FOOTER
exit /b %ERROR%
)
echo\%~f2| findstr /r /c:".*[ ].*" >nul 2>&1
if !errorlevel! EQU 0 (
set "_EXE_this=%~sdpnx2"
) else (
set "_EXE_this=%~f2"
)
)
if not defined _EXE_this (
set "ERROR_run_as_admin_P2=Parametro 2 "%~2" "
echo\::
echo\:: "%1" Richiesto un percorso completo ad un file
echo\:: da eseguire con permessi elevati "gruppo Administrators"
echo\:: Se contiene spazi racchiudere tra " "
echo\::
call :FOOTER
exit /b %ERROR%
)
set "_EXE3="
set "Xn="
shift /1
:loop_p3
shift /1
set "Xn=%~1"
if defined Xn (
if exist "%Xn%" (
echo\%Xn%| findstr /r /c:".*[ ].*" >nul 2>&1
REM se trovo spazi vuoti trasformo in nome breve
if !errorlevel! EQU 0 (
set "_EXE3=!_EXE3! %~sdpnx1 "
) else (
set "_EXE3=!_EXE3! %~1 "
)
) else (
set _EXE3=!_EXE3! %~1
)
REM echo\@@!_EXE3!
set "Xn="
goto :loop_p3
)
REM https://ss64.com/vb/shellexecute.html
REM OK .ShellExecute "application", "parameters", "dir", "verb", window
REM NO .ShellExecute 'some program.exe', '"some parameters with spaces"', , "runas", 1
set "RUN_AS_ADMIN_time=%time: =0%"
set "RUN_AS_ADMIN_time=%RUN_AS_ADMIN_time::=%"
set "RUN_AS_ADMIN_time=%RUN_AS_ADMIN_time:.=%"
set "RUN_AS_ADMIN_time=%RUN_AS_ADMIN_time:,=%"
REM https://ss64.com/nt/syntax-random.html
REM set /a RUN_AS_ADMIN_random=(%random%*1000/32768+1000)
set /a "RUN_AS_ADMIN_random=(%random%*100/32768+100)"
set "RUN_AS_ADMIN_win_title=%THIS_file_pid%-%RUN_AS_ADMIN_time%-%RUN_AS_ADMIN_random%"
set "_CMD=%comspec%"
set "_EXE_FULL=%_EXE_this% %_EXE3%"
set "_VBS=%temp%\dummy.vbs"
set "_OUT_cmd=%temp%\dummy.cmd"
if exist "%_VBS%" del /q /f "%_VBS%"
if exist "%_OUT_cmd%" del /q /f "%_OUT_cmd%"
::::::::::::::
:::::: file per dare risposta nella consolle elevata
::::::::::::::
echo\@echo off ^& setlocal > %_OUT_cmd%
echo\title %RUN_AS_ADMIN_win_title% "%username%" chiama "%%username%%" >> %_OUT_cmd%
echo\if "%%1"=="start" ^( >> %_OUT_cmd%
echo\ set "dummy_time_start=start %%date%% %%time: =0%%" >> %_OUT_cmd%
echo\ set "dummy_act=esegue" >> %_OUT_cmd%
echo\ set "dummy_call=chiama" >> %_OUT_cmd%
echo\^) >> %_OUT_cmd%
echo\if "%%1"=="end" ^( >> %_OUT_cmd%
echo\ set "dummy_time_end=end %%date%% %%time: =0%%" >> %_OUT_cmd%
echo\ set "dummy_act=ha eseguito" >> %_OUT_cmd%
echo\ set "dummy_call=ha chiamato" >> %_OUT_cmd%
echo\^) >> %_OUT_cmd%
echo\if "%%1"=="end" ^( >> %_OUT_cmd%
echo\ echo\::--- %%dummy_time_end%% -------- >> %_OUT_cmd%
echo\^) >> %_OUT_cmd%
echo\if "%%1"=="start" echo\::::::::::::::::: >> %_OUT_cmd%
echo\echo\:: "%username%" %%dummy_call%% "%%username%%" >> %_OUT_cmd%
echo\echo\:: utente "%%username%%" consolle con permessi elevati >> %_OUT_cmd%
echo\echo\:: "%%username%%" %%dummy_act%%: >> %_OUT_cmd%
echo\echo\:: %_EXE_this% >> %_OUT_cmd%
if defined _EXE3 echo\echo\:: %_EXE3% >> %_OUT_cmd%
echo\if "%%1"=="start" ^( >> %_OUT_cmd%
echo\ echo\::--- %%dummy_time_start%% -------- >> %_OUT_cmd%
echo\ echo\:: %_EXE_this% >> %_OUT_cmd%
if defined _EXE3 echo\ echo\:: %_EXE3% >> %_OUT_cmd%
echo\^) >> %_OUT_cmd%
echo\if "%%1"=="end" echo\::::::::::::::::: >> %_OUT_cmd%
echo\if defined dummy_time_end set "dummy_time_start=" >> %_OUT_cmd%
echo\endlocal ^& set "dummy_time_start=%%dummy_time_start%%" >> %_OUT_cmd%
::::::::::::::
:::::: fine file per dare risposta nella consolle elevata
::::::::::::::
echo Set UAC = CreateObject^("Shell.Application"^) > "%_VBS%"
echo UAC.ShellExecute "%_CMD%"," /K title %RUN_AS_ADMIN_win_title% & cd /d %cd% & call %_OUT_cmd% start & %_EXE_FULL% & call %_OUT_cmd% end & set dummy_time_start=", "%cd%", "runas", 1 >> "%_VBS%"
cscript //nologo %_VBS%
if defined CMDOW_exe (
REM echo\%CMDOW_exe% /p /f ^| findstr /r /c:".*%RUN_AS_ADMIN_win_title%" ^>nul 2^>^&1
%CMDOW_exe% /p /f | findstr /r /c:".*%RUN_AS_ADMIN_win_title%" >nul 2>&1
set ERROR_consolle=!errorlevel!
) else (
powershell "Get-Process | Where-Object {$_.mainWindowTitle} | Format-Table Id, Name, mainWindowtitle" ^
| findstr /r /c:".*%RUN_AS_ADMIN_win_title%.*" >nul 2>&1
set ERROR_consolle=!errorlevel!
)
REM echo\++++ ERROR_consolle==%ERROR_consolle%
if %ERROR_consolle% EQU 0 (
set ERROR_consolle=
echo\::
echo\:: "%username%" chiede una consolle con permessi elevati
echo\:: per eseguire %_EXE_this%
if defined _EXE3 echo\:: %_EXE3%
echo\:: CONSOLLE "%RUN_AS_ADMIN_win_title%" APERTA
echo\::
call :FOOTER
) else (
set "ERROR_run_as_admin_NO=UAC richiesta non valida"
echo\::
echo\:: CONSOLLE RIFIUTATA
echo\:: "%username%" !ERROR_run_as_admin_NO!
echo\:: comando UAC %_EXE_this%
if defined _EXE3 echo\:: parametri: %_EXE3% .
echo\::
echo\:: autenticazione??? ERRORE bla bla bla
echo\::
call :FOOTER
exit /b %ERROR%
)
:run_as_admin_end
:::::::::::::: function end ::::::::::::::::::::::::::::::::::::::::::
:::::::::::::: function end ::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::: user_is_admin ::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::: user_is_admin ::::::::::::::::::::::::::::::::::::::::::::::
:::: REM >nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
:::: REM if '%errorlevel%' NEQ '0' (
:::: REM goto UACPrompt
:::: REM ) else ( goto gotAdmin )
:::: REM :UACPrompt
:::: REM echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
:::: REM echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs"
:::: REM "%temp%\getadmin.vbs"
:::: REM exit /B
:::: REM :gotAdmin
goto :user_is_admin_end
:user_is_admin
:USER_IS_ADMIN_sos
if not "%~0"==":USER_IS_ADMIN_sos" goto :user_is_admin_sos_end
echo\::* %THIS_file% %C__%%~1%C_0% .
echo\::
echo\:: Controlla su questo computer "%computername%"
echo\:: se l'utente locale "%username%" che esegue questo script
echo\:: fa parte del gruppo locale "Users" oppure "Administrators"
echo\::
echo\:: Restituisce la var "my_USER_IS" valorizzata
echo\:: con il gruppo di appartenenza
exit /b %ERROR%
:user_is_admin_sos_end
REM net session /list >nul 2>&1
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
set "is_admin=%errorlevel%"
set "my_USER_IS="
if %is_admin% EQU 0 (
for /f "delims=* tokens=1,2*" %%A in ('net user %username% ^| findstr /i /r /x /c:"^.*[*]Administrators.*"') do (
if !errorlevel! EQU 0 (
set "my_USER_IS=%%B"
)
)
)
if %is_admin% GEQ 1 (
for /f "delims=* tokens=1,2*" %%A in ('net user %username% ^| findstr /i /r /x /c:"^.*[*]Users.*"') do (
if !errorlevel! EQU 0 (
set "my_USER_IS=%%B"
)
)
)
if not defined my_USER_IS (
set ERROR_USER_IS=%username% non é nel gruppo "*Users", non é nel gruppo "*Administrators"
echo\::
echo\:: %username% non é nel gruppo "*Users", non é nel gruppo "*Administrators"
echo\::
call :FOOTER
exit /b %ERROR%
)
echo\:: utente locale "%username%" di questo host "%computername%"
echo\:: gruppo locale "%my_USER_IS: =%"
echo\:: valore restituito
echo\:: %%my_USER_IS%%==%my_USER_IS: =%
echo\::::::::::::::::::::::::::::::::::::::::
echo\::%MSG:§=!LF!::%
call :FOOTER
(
REM endlocal & endlocal
endlocal
set my_USER_IS=%my_USER_IS: =%
)
:user_is_admin_end
:::::::::::::: user_is_admin end ::::::::::::::::::::::::::::::::::::::::::
:::::::::::::: user_is_admin end ::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::: my_geoip start :::::::::::::::::::::::::::::::::::::::::::
:::::::::::::: my_geoip start :::::::::::::::::::::::::::::::::::::::::::
goto :geoip_end
:geoip
REM setlocal enabledelayedexpansion
:GEOIP_sos
if not "%~0"==":GEOIP_sos" goto :geoip_sos_end
echo\::* %THIS_file% %C__%%~1%C_0% .
echo\::
echo\:: Utilizza "curl.exe" per interrogare il servizio
echo\:: web "http://ip-api.com/json/?fields=66846719"
echo\:: -Se come parametro si aggiunge un indirizzo "IP"
echo\:: oppure un nome a "DNS" vengono restituiti i valori
echo\:: per il l'indirizzo.
echo\:: -Se non è specificato un'indirizzo i valori restituiti
echo\:: si riferiscono alla connessione internet in uso.
echo\:: -Esempio:
echo\::* %THIS_file% %1
echo\:: restituisce i valori per la connessione internet in uso.
echo\::* %THIS_file% %1 8.8.8.8
echo\:: restituisce i valori per l'indirizzo IP "8.8.8.8"
echo\:: il DNS pubblico di google
echo\::* %THIS_file% %1 208.67.222.222
echo\:: restituisce i valori per l'indirizzo IP "208.67.222.222"
echo\:: il DNS pubblico di Cisco
exit /b %ERROR%
:geoip_sos_end
if exist "%~dp0curl.exe" (
echo\:: "%~dp0curl.exe"
set "CURL_exe=%~dp0curl.exe"
)
if not defined CURL_exe (
if exist "%windir%\system32\curl.exe" (
REM echo\:: "%windir%\system32\curl.exe"
REM :::: "%windir%\system32" è un percorso in %path%
set "CURL_exe=curl.exe"
)
)
if not defined CURL_exe (
set "ERROR_geoip=MANCA "curl.exe""
echo\::
echo\:: manca curl.exe
echo\::
call :FOOTER
exit /b %ERROR%
)
REM trova %computername% ip4
REM set "FIND_ip4=[0-9]*[.][0-9]*[.][0-9]*[.][0-9]*"
REM ping -a -n 1 -4 %computername% | findstr /i /r /c:".*%computername%.*[%FIND_ip4%]" & echo error==%errorlevel%
REM trova localhost [::1*
REM ping -a -n 1 -6 %computername% | findstr /i /r /c:".*%computername%[ *[:1]*" & echo %errorlevel%
REM ping -a -n 1 -6 %computername% | findstr /i /r /c:".*%computername%[ *[fe80:]*" & echo %errorlevel%
REM trova connetività su internet
REM ping -a -n 1 gnu.org | findstr /i /r /c:".*[[][0-9:].*" & echo %errorlevel%
set "PING_this_2=gnu.org"
set "PING_this_1=ip-api.com"
set "PING_this=%PING_this_1%"
REM ping -a -n 1 %PING_this% | findstr /i /r /c:".*[[][0-9:].*" >nul
REM for /f "tokens=1,2 delims=^=" %%A in ( 'set PING_this_' ) do (
REM ping -a -n 1 %%B >nul
REM if !errorlevel! GTR 0 (
REM set "ERROR_geoip_no_internet=connessione a internet non disponibile"
REM set "NO_PING_this=%%B"
REM )
REM if !errorlevel! EQU 0 (
REM set "ERROR_geoip_no_internet="
REM set "NO_PING_this="
REM )
REM if defined ERROR_geoip_no_internet (
REM ping -a -n 1 %%B >nul
REM if !errorlevel! GTR 0 (
REM set "ERROR_geoip_no_internet=connessione a internet non disponibile"
REM set "NO_PING_this=%%B"
REM )
REM )
REM )
REM if defined NO_PING_this (
REM echo\::
REM echo\:: connessione a internet non disponibile
REM echo\:: [ping -a -n 1 %NO_PING_this%] senza risposta
REM echo\::
REM call :FOOTER
REM exit /b %ERROR%
REM )
ping -a -n 1 -f %PING_this% >nul
if %errorlevel% GTR 0 (
set "ERROR_geoip_no_internet=connessione a internet non disponibile"
echo\::
echo\:: connessione a internet non disponibile
echo\:: [ping -a -n 1 -l 8 -f -w 128 %PING_this%] senza risposta
echo\::
call :FOOTER
exit /b %ERROR%
)
:::: REM https://ip-api.com/docs/api:json
:::: set "FIELDS=status,message,"
:::: set "FIELDS=%FIELDS%continent,continentCode,country,countryCode,region,"
:::: set "FIELDS=%FIELDS%regionName,city,district,zip,lat,lon,timezone,offset,currency,"
:::: set "FIELDS=%FIELDS%isp,org,as,asname,reverse,mobile,proxy,hosting,query"
set "FIELDS=66846719"
set "ADDRESS=%~2"
set "GEO_IP_API=http://ip-api.com/json/%ADDRESS%?fields=%FIELDS%"
REM set "CURL_exe=%CURL_exe% -v -s -S -k -L --retry 1 -A "%THIS_file:~0,-4%""
set "CURL_exe=%CURL_exe% -s -S -k -L --retry 1 -A "%THIS_file:~0,-4% %THIS_file_pid%""
echo\:: %CURL_EXE% %GEO_IP_API%
::::::::::::
for /f "tokens=*" %%A in ( '"%CURL_exe% %GEO_IP_API%"' ) do (
REM if !errorlevel! GTR 0 (
REM set "ERROR_geoip_curl=errore curl"
REM echo\::
REM echo\:: errore curl
REM echo\::
REM call :FOOTER
REM exit /b %ERROR%
REM )
set "A_x=%%A"
set A_start=!A_x:~0,1!
set A_end=!A_x:~-1!
set CK_A=!A_start!!A_end!
if not "!CK_A!"=="{}" ( REM json restituito da curl sta su una sola riga
set/a CK_A_line+=1
if !CK_A_line! EQU 1 (
set "CK_A_line_1=!A_x!"
set "A_start_1=!A_x:~0,1!"
)
set "A_end=!A_x:~-1!"
)
if "!CK_A!"=="{}" (
echo\:: valori restituiti:... .. .
set "geo_ip=%%~A"
set "geo_ip=!geo_ip:{=!"
set "geo_ip=!geo_ip:}=!"
set "geo_ip=!geo_ip:":==!"
set "geo_ip=!geo_ip:"=!"
set "geo_ip=!geo_ip:, =##!"
)
)
if defined CK_A_line (
set ERROR_geoip_json=valore json restituito non valido
echo\:: !ERROR_geoip_json!, atteso {... .. . .}
echo\:: !ERROR_geoip_json!, ricevuto !A_start_1!... .. . .!A_end!
if not !CK_A_line_1! EQU !CK_A_line! (
echo\:: *!CK_A_line! righe... .. . . . .
echo\:: * 1 !CK_A_line_1!
echo\:: *!CK_A_line! !A_x!
) else (
echo\:: * 1 !CK_A_line_1!
)
call :FOOTER
exit /b %ERROR%
)
REM echo\ ---- GEO_IP ----
REM echo\%geo_ip:,=!lf!%
for /f "tokens=1,2 delims=^=" %%a in ( "%geo_ip:,=!LF!%" ) do (
set "A=%%a"
set "B=%%b"
if defined TR_exe (
for /f "tokens=*" %%Z in ( 'echo\!A!^|"%TR_exe%" [:lower:] [:upper:]') do (
set "A=%%Z"
)
)
if /i "!A!"=="status" (
if "!B!"=="fail" (
set "ERROR_geoip_status=ip-api.com errore !B!"
)
)
if defined ERROR_geoip_status (
if "!B!" NEQ "fail" set "ERROR_geoip_!A!=ip-api.com errore !B!"
)
if not defined ERROR_geoip_status (
REM if not defined B set "B="""
if not defined B set "B=_NUL_"
set "_!A!=!B:##=, !"
)
)
set "A="
set "B="
if defined ERROR_geoip_status (
call :FOOTER
exit /b %ERROR%
)
if not defined ADDRESS set "ADDRESS=local_%_query%"
echo\::::::::::::::::::::::::::::::::::::::::
for /f "tokens=*" %%z in ( 'set _' ) do echo\:: my_%ADDRESS%%%z
echo\::::::::::::::::::::::::::::::::::::::::
echo\::%MSG:§=!LF!::%
call :FOOTER
set "N="
for /f "tokens=1,2 delims=^=" %%G in ('set _') do (
set /a N+=1
if !N! EQU 1 (
endlocal
)
set "my_%ADDRESS%%%G=%%H"
)
set "N="
:geoip_end
:::::::::::::: my_geoip end ::::::::::::::::::::::::::::::::::::::::::
:::::::::::::: my_geoip end ::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::: my_date ::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::: my_date ::::::::::::::::::::::::::::::::::::::::::::::::::
goto :my_date_end
:my_date
:MY_DATE_sos
if not "%~0"==":MY_DATE_sos" goto :my_date_sos_end
echo\::* %THIS_file% %C__%%~1%C_0% .
echo\::
echo\:: restituisce una serie di variabili "my_....."
echo\:: che possono essere utili.
REM call "%THIS_file_full_path%" my_date >"%temp%\%~1.txt"
REM set "N="
REM for /f "tokens=*" %%Z in ('type "%temp%\%~1.txt"') do (
REM set "Zx=%%Z"
REM echo\!Zx! | findstr /x /r /c:"^[:][:][ ][m][y][_].*$" >nul 2>&1
REM if !errorlevel! EQU 0 (
REM set /a N+=1
REM if !N! EQU 1 (
REM echo\::* %THIS_file% %C__%%~1%C_0% .
REM echo\::
REM echo\:: restituisce queste variabili... .. .
REM echo\!Zx!
REM ) else (
REM echo\!Zx!
REM )
REM )
REM )
REM set "N="
REM del /q "%temp%\%~1.txt"
exit /b %ERROR%
:my_date_sos_end
REM for /f "tokens=1-5 delims= " %%a in ( 'wmic path win32_localtime get day^,dayofweek^,month^,year ^| findstr /R [0-9]' ) do (
REM set DAY=%%a
REM set DAY_OF_WEEK=%%b
REM set MONTH_N=%%c
REM set YEAR=%%d
REM )
:::: https://superuser.com/questions/331220/wmic-path-what-wmic-class-what
REM wmic path Win32_TimeZone get /format:list
REM wmic path Win32_UTCTime get /format:list
wmic path win32_localtime get /format:list >nul 2>&1
if %errorlevel% EQU 0 (
set "COUNT_all_wmic="
for /f "tokens=1,2 delims=^=" %%A in ('wmic path win32_localtime get /format:list') do (
set /a COUNT_all_wmic+=1
REM set "_%%A=%%B"
REM REM @echo\ A--[ %%A ] B--[ %%B ]
REM set /a COUNT_all+=1
set "Ax=%%A"
set "Bx=%%B"
REM echo\---- 'Ax=!Ax!' 'Bx=!Bx!'
REM :::: controllo se !Bx! è vuoto
REM :::: Milliseconds= non
if not !Bx!dummy==dummy (
REM :::: imposto solo !Bx! con valore
REM echo\:: valore valido !Ax!=!Bx!
set "!Ax!=!Bx!"
)
)
) else (
set "ERROR_win32_localtime=wmic path win32_localtime"
)
if defined Year (
set "_YEAR=%Year%"
) else (
set "ERROR_my_date_YEAR=Non trovo l'anno"
)
if defined Month (
if %Month%==1 set "_MONTH_NAME=gennaio"
if %Month%==2 set "_MONTH_NAME=febbraio"
if %Month%==3 set "_MONTH_NAME=marzo"
if %Month%==4 set "_MONTH_NAME=aprile"
if %Month%==5 set "_MONTH_NAME=maggio"
if %Month%==6 set "_MONTH_NAME=giugno"
if %Month%==7 set "_MONTH_NAME=luglio"
if %Month%==8 set "_MONTH_NAME=agosto"
if %Month%==9 set "_MONTH_NAME=settembre"
if %Month%==10 set "_MONTH_NAME=ottobre"
if %Month%==11 set "_MONTH_NAME=novembre"
if %Month%==12 set "_MONTH_NAME=dicembre"
if "%Month:~1,1%"=="" (
set "_MONTH_N=0%Month%"
) else (
set "_MONTH_N=%Month%"
)
) else (
set "ERROR_my_date_Month=Non trovo il mese"
)
if defined DayOfWeek (
if %DayOfWeek%==0 set "_DAY_NAME=domenica"
if %DayOfWeek%==1 set "_DAY_NAME=lunedì"
if %DayOfWeek%==2 set "_DAY_NAME=martedì"
if %DayOfWeek%==3 set "_DAY_NAME=mercoledì"
if %DayOfWeek%==4 set "_DAY_NAME=giovedì"
if %DayOfWeek%==5 set "_DAY_NAME=venerdì"
if %DayOfWeek%==6 set "_DAY_NAME=sabato"
if %DayOfWeek%==7 set "_DAY_NAME=domenica"
if "%DayOfWeek:~1,1%"=="" (
set "_DAY_OF_WEEK=0%DayOfWeek%"
) else (
set "_DAY_OF_WEEK=%DayOfWeek%"
)
) else (
set "ERROR_my_date_DayOfWeek=Non trovo il giorno della settimana"
)
if defined Quarter (
set "_QUARTER_IN_YEAR=%Quarter%"
) else (
set "ERROR_my_date_QUARTER_IN_YEAR=Non trovo il quadrimestre"
)
if defined WeekInMonth (
set "_WEEK_IN_MONTH=%WeekInMonth%"
) else (
set "ERROR_my_date_WEEK_IN_MONTH=Non trovo la settimana nel mese"
)
if defined Day (
if "%Day:~1,1%"=="" (
set "_DAY_IN_MONTH=0%Day%"
) else (
set "_DAY_IN_MONTH=%Day%"
)
) else (
set "ERROR_my_date_DAY_IN_MONTH=Non trovo il giorno del mese"
)
REM :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
REM wmic path Win32_TimeZone get /format:list
REM Bias=60
REM Caption=(UTC+01:00) Amsterdam, Berlino, Berna, Roma, Stoccolma, Vienna
REM DaylightBias=-60
REM DaylightDay=5
REM DaylightDayOfWeek=0
REM DaylightHour=2
REM DaylightMillisecond=0
REM DaylightMinute=0
REM DaylightMonth=3
REM DaylightName=ora legale Europa occidentale
REM DaylightSecond=0
REM DaylightYear=0
REM Description=(UTC+01:00) Amsterdam, Berlino, Berna, Roma, Stoccolma, Vienna
REM SettingID=
REM StandardBias=0
REM StandardDay=5
REM StandardDayOfWeek=0
REM StandardHour=3
REM StandardMillisecond=0
REM StandardMinute=0
REM StandardMonth=10
REM StandardName=ora solare Europa occidentale
REM StandardSecond=0
REM StandardYear=0
REM :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
wmic path Win32_TimeZone get /format:list >nul 2>&1
if %errorlevel% EQU 0 (
set "COUNT_all_wmic="
REM for /f "tokens=1,2 delims=^=" %%A in ('wmic path Win32_TimeZone get Description /format:list') do (
for /f "tokens=1,2 delims=^=" %%A in ('wmic path Win32_TimeZone get /format:list') do (
set /a COUNT_all_wmic+=1
REM set "_%%A=%%B"
REM REM @echo\ A--[ %%A ] B--[ %%B ]
REM set /a COUNT_all+=1
set "Ax=%%A"
set "Bx=%%B"
REM echo\---- 'Ax=!Ax!' 'Bx=!Bx!'
REM :::: controllo se !Bx! è vuoto
REM :::: Milliseconds= non
if not !Bx!dummy==dummy (
REM if defined TR_UPPER (
REM for /f "tokens=*" %%Z in ( 'echo\!Ax!^|%TR_UPPER%') do (
REM set "Ax=%%Z"
REM echo\@@@@@@@@@!Ax!
REM )
REM )
REM :::: imposto solo !Bx! con valore
REM echo\:: valore valido !Ax!=!Bx!
set "!Ax!=!Bx!"
)
)
) else (
set "ERROR_Win32_TimeZone=wmic path Win32_TimeZone"
)
if defined Description (
set "_TIME_Description=%Description%"
) else (
set "ERROR_TimeZone_Description=non trovo la descrizione di TimeZone"
)
if defined StandardName (
set "_TIME_StandardName=%StandardName%"
) else (
set "ERROR_TimeZone_StandardName=non trovo StandardName di TimeZone"
)
if defined DaylightName (
set "_TIME_DaylightName=%DaylightName%"
) else (
set "ERROR_TimeZone_DaylightName=non trovo DaylightName di TimeZone"
)
REM :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
REM wmic path Win32_UTCTime get /format:list
REM Day=4
REM DayOfWeek=4
REM Hour=12
REM Milliseconds=
REM Minute=26
REM Month=4
REM Quarter=2
REM Second=7
REM WeekInMonth=1
REM Year=2024
REM :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
wmic path Win32_UTCTime get /format:list >nul 2>&1
if %errorlevel% EQU 0 (
set "COUNT_all_wmic="
for /f "tokens=1,2 delims=^=" %%A in ('wmic path Win32_UTCTime get /format:list') do (
set /a COUNT_all_wmic+=1
REM set "_%%A=%%B"
REM REM @echo\ A--[ %%A ] B--[ %%B ]
REM set /a COUNT_all+=1
set "Ax=%%A"
set "Bx=%%B"
REM echo\---- 'Ax=!Ax!' 'Bx=!Bx!'
REM :::: controllo se !Bx! è vuoto
if not !Bx!dummy==dummy (
REM :::: imposto solo !Bx! con valore
REM echo\:: valore valido !Ax!=!Bx!
set "!Ax!=!Bx!"
)
)
) else (
set "ERROR_Win32_UTCTime=wmic path Win32_UTCTime"
)
if defined Day (
if "%Day:~1,1%"=="" (
set "_UTC_DAY_IN_MONTH=0%Day%"
) else (
set "_UTC_DAY_IN_MONTH=%Day%"
)
)
if defined DayOfWeek (
if "%DayOfWeek:~1,1%"=="" (
set "_UTC_DAY_OF_WEEK=0%DayOfWeek%"
) else (
set "_UTC_DAY_OF_WEEK=%DayOfWeek%"
)
)
if defined Month (
if "%Month:~1,1%"=="" (
set "_UTC_MONTH_N=0%Month%"
) else (
set "_UTC_MONTH_N=%Month%"
)
)
if defined Year (
set _UTC_YEAR=%Year%
)
if defined Hour (
if "%Hour:~1,1%"=="" (
set "_UTC_HOUR=0%Hour%"
) else (
set "_UTC_HOUR=%Hour%"
)
)
if defined Minute (
if "%Minute:~1,1%"=="" (
set "_UTC_MINUTE=0%Minute%"
) else (
set "_UTC_MINUTE=%Minute%"
)
)
if defined Second (
if "%Second:~1,1%"=="" (
set "_UTC_SECOND=0%Second%"
) else (
set "_UTC_SECOND=%Second%"
)
)
set "_UTC_TIME=%_UTC_HOUR%:%_UTC_MINUTE%:%_UTC_SECOND%"
set "_UTC_DATE=%_UTC_DAY_IN_MONTH%/%_UTC_MONTH_N%/%_UTC_YEAR%"
set "_DATE_serial=%_YEAR%%_MONTH_N%%_DAY_IN_MONTH%"
REM echo\@@@ _DATE_serial=%_DATE_serial%
REM "wmic path win32_localtime get /format:list" non inizializza Milliseconds, non considera i centesimi di sec
REM PRENDO I VALORI DA %time% e %date%
REM PER VALORIZZARE _TIME_serial _DATE_serial ... .. . . . .
REM formato localizzato della data da "reg import myregPARETO-User.reg"
REM reg query "HKCU\Control Panel\International"
REM reg query "HKCU\Control Panel\International" /v sDecimal
set "_CURRENT_date=%date%§%time: =0%" & REM spazi vuoti diventano "0"
REM echo %_CURRENT_date%
for /f "tokens=1-8 delims=/:,§" %%a in ("%_CURRENT_date%") do (
REM echo %%cYEAR %%bMONTH %%aDAY
REM echo %%dHOURS %%eMIN %%fSEC %%gCENTs
REM set "_Year=%%c"
REM set "_Month=%%b"
REM set "_Day=%%a"
set "_HOUR=%%d"
set "_MINUTE=%%e"
set "_SECOND=%%f"
set "_SECOND_CENT=%%g"
REM set "_DATE_serial=%%c%%b%%a"
REM set "_TIME_serial=%%d%%e%%f%%g"
)
set "_CURRENT_date="
set "_TIME_serial=%_HOUR%%_MINUTE%%_SECOND%%_SECOND_CENT%"
set "_DATE=%_DAY_NAME% %Day% %_MONTH_NAME% %_YEAR%"
set "_TIME=%_HOUR%:%_MINUTE%:%_SECOND%,%_SECOND_CENT%"
REM echo\@@@_DATE==%_DATE%
REM echo\@@@_TIME==%_TIME%
REM echo "%~dpnx0" %1
echo\:: %THIS_file% %C__%%~1%C_0% .
echo\::
echo\:: valori restituiti... .. .
echo\::::::::::::::::::::::::::::::::::::::::
for /f "tokens=1,2 delims=^=" %%A in ( 'set _' ) do (
set Az=
set Bz=
set "Az=%%A"
set "Bz=%%B"
echo\:: my!Az!=!Bz!
)
echo\::::::::::::::::::::::::::::::::::::::::
echo\::%MSG:§=!LF!::%
call :FOOTER
set "N="
for /f "tokens=1,2 delims=^=" %%G in ('set _') do (
set /a N+=1
REM if "!N!" EQU "1" endlocal & endlocal
if "!N!" EQU "1" endlocal
set "my%%G=%%H"
)
set "N="
:my_date_end
:::::::::::::: my_date end ::::::::::::::::::::::::::::::::::::::::::
:::::::::::::: my_date end ::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::: my_ip4 :::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::: my_ip4 :::::::::::::::::::::::::::::::::::::::::::::::::::
goto :my_IP4_end
:my_IP4
REM setlocal enabledelayedexpansion
:MY_IP4_sos
if not "%~0"==":MY_IP4_sos" goto :my_ip4_sos_end
echo\::* %THIS_file% %C__%%~1%C_0% %C__%to_file%C_0% .
echo\::
echo\:: Con il parametro "to_file" l'output
echo\:: é salvato nel file "%USERPROFILE%\myIP4.txt"
echo\:: -se disponibile l'indirizzo ip4 imposta la var "my_ip4"
echo\:: esce con %%errorlevel%%=0
echo\:: -se non è disponibile l'indirizzo ip4
echo\:: esce con %%errorlevel%%^>=1
exit /b %ERROR%
:my
