Scripturi Ajutatoare - pentru Administratori si Utilizatori Avansati

Retea, baze de date, salvari, restaurari etc.
Mesaj
Autor
ciucam544
Mesaje: 891
Membru din: Mar Noi 25, 2008 12:00 am

Re: Scripturi Ajutatoare - pentru Administratori si Utilizatori Avansati

#16 Mesaj de ciucam544 »

UPDATE: Pentru ca la fiecare actualizare de Adobe Acrobat se activeaza Protected Mode si Enhanced Security, aceste optiuni trebuie mereu dezactivate (pentru a putea vizualiza din saga PDF-urile generate).
Am refacut un scriptul, pentru a dezactiva aceaste optiuni si dupa actualizarile viitoare ale programului Adobe Acrobat.
Se ruleaza doar o singura data in windows si gata. In Adobe Acrobat sau in Acrobat Reader nu vor mai fi active sau bifate Enable Protected Mode at startup si Enable Enhanced Security.

DisableAdobeAcrobatPMES.cmd

Cod: Selectaţi tot

net session >nul 2>&1 || (powershell -NoProfile -Command "Start-Process -FilePath '%~f0' -Verb RunAs" & exit /b)
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Adobe\Acrobat Reader\DC\FeatureLockDown" /v "bProtectedMode" /t REG_DWORD /d 0 /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Adobe\Acrobat Reader\DC\FeatureLockDown" /v "bEnhancedSecurityStandalone" /t REG_DWORD /d 0 /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Adobe\Acrobat Reader\DC\FeatureLockDown" /v "bEnhancedSecurityInBrowser" /t REG_DWORD /d 0 /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Policies\Adobe\Acrobat Reader\DC\FeatureLockDown" /v "bProtectedMode" /t REG_DWORD /d 0 /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Policies\Adobe\Acrobat Reader\DC\FeatureLockDown" /v "bEnhancedSecurityStandalone" /t REG_DWORD /d 0 /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Policies\Adobe\Acrobat Reader\DC\FeatureLockDown" /v "bEnhancedSecurityInBrowser" /t REG_DWORD /d 0 /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Adobe\Adobe Acrobat\DC\FeatureLockDown" /v "bProtectedMode" /t REG_DWORD /d 0 /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Adobe\Adobe Acrobat\DC\FeatureLockDown" /v "bEnhancedSecurityStandalone" /t REG_DWORD /d 0 /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Adobe\Adobe Acrobat\DC\FeatureLockDown" /v "bEnhancedSecurityInBrowser" /t REG_DWORD /d 0 /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Policies\Adobe\Adobe Acrobat\DC\FeatureLockDown" /v "bProtectedMode" /t REG_DWORD /d 0 /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Policies\Adobe\Adobe Acrobat\DC\FeatureLockDown" /v "bEnhancedSecurityStandalone" /t REG_DWORD /d 0 /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Policies\Adobe\Adobe Acrobat\DC\FeatureLockDown" /v "bEnhancedSecurityInBrowser" /t REG_DWORD /d 0 /f
pause

iliovicid825
Mesaje: 7
Membru din: Lun Ian 27, 2014 11:44 am

Re: Scripturi Ajutatoare - pentru Administratori si Utilizatori Avansati

#17 Mesaj de iliovicid825 »

Multumesc ptr. script!
Apropo, nu există o alternativă decenta la acest nenorocit de Adobe Reader?

ciucam544
Mesaje: 891
Membru din: Mar Noi 25, 2008 12:00 am

Re: Scripturi Ajutatoare - pentru Administratori si Utilizatori Avansati

#18 Mesaj de ciucam544 »

Din pacate nu. Adobe este singura companie care face softul ce poate rula corect scripturile si cripta corect semnaturile in tipizatele de la ANAF, probabil tocmai pt. ca sunt generate cu softul de la Adobe.

ciucam544
Mesaje: 891
Membru din: Mar Noi 25, 2008 12:00 am

Re: Scripturi Ajutatoare - pentru Administratori si Utilizatori Avansati

#19 Mesaj de ciucam544 »

ActualizareSagaKitCompletSmart_V4.1.cmd

Cod: Selectaţi tot

@echo off
set cd=%~dp0
set cd=%cd:~0,-1%
net session >nul 2>&1 || (setx SagaCale "%cd%" >nul & powershell -NoProfile -Command "Start-Process -FilePath '%~f0' -Verb RunAs" & exit /b)
title - Actualizare Saga Kit Complet Smart V4.1 - 2026(c)byGabrieL
for /f "delims=" %%C in ('powershell -NoProfile -Command "(Get-Item Env:SagaCale).Value"') do set "CaleSaga=%%C"
if exist "%CaleSaga%\sb.exe" (set "SagaTip=SagaB" & set "SetupSaga=SetupB.exe" & set "CaleTipInit=Lite B 3" & set "Page=saga-b.php" & set "Link=SAGA B.3.0")
if exist "%CaleSaga%\sc.exe" (set "SagaTip=SagaC" & set "SetupSaga=SetupC.exe" & set "CaleTipInit=Lite C 3" & set "Page=saga-c.php" & set "Link=SAGA C.3.0")
if exist "%CaleSaga%\sps.exe" (set "SagaTip=SagaPS" & set "SetupSaga=SetupPS.exe" & set "CaleTipInit=PS 3" & set "Page=saga-ps.php" & set "Link=SAGA PS.3.0")
if "%SagaTip%"=="" (color 0c & echo Nu exista un program saga in folderul curent ! & pause & exit /b)
for /f %%T in ('powershell -NoProfile -Command "Get-Date -Format yyyy.MM.dd_HH.mm.ss"') do set "DATE=%%T"
for /f "usebackq delims=" %%V in (`powershell -NoProfile -Command "$h=Invoke-WebRequest 'https://www.sagasoft.ro/%Page%' -UseBasicParsing; if($h.Content -match 'Versiune:</b>\s*([0-9\.]+)') { $matches[1] }"`) do set "VER=%%V"
color 0a & echo Program Saga detectat: %SagaTip% - Versiune v%VER%.
set "Upd=%CaleSaga%\Actualizari"
if not exist "%Upd%" mkdir "%Upd%"
set "KitSaga=%Upd%\%SagaTip%_%DATE%_v%VER%.exe"
if exist "%Upd%\%SagaTip%_%DATE:~0,13%*_v%VER%.exe" (
for /f "delims=" %%F in ('dir /b /o:-d "%Upd%\%SagaTip%_%DATE:~0,13%*_v%VER%.exe"') do set "KitSaga=%Upd%\%%F"
echo Exista deja un kit recent descarcat !
goto :Instalare
)
echo Kit-ul complet se descarca in %KitSaga%
set /a "rnd=%RANDOM% %% 3 + 1"
powershell -NoProfile -Command "$url = 'https://mirror%rnd%.sagasoft.ro/programe/%SetupSaga%'; $out = '%KitSaga%'; $bytes = Invoke-WebRequest -Uri $url -UseBasicParsing; [System.IO.File]::WriteAllBytes($out, $bytes.Content); if (Test-Path -LiteralPath $out) { Write-Host 'Descarcare OK!' $out -ForegroundColor Green } else { Write-Host 'Descarcare ESUATA!' -ForegroundColor Red }; Write-Host 'Press any key...'; $null = $Host.UI.RawUI.ReadKey('NoEcho,IncludeKeyDown')"
:Instalare
color 0e & echo Nu inchideti fereastra ! Finalizati instalarea %KitSaga% !
set "CaleInitiala="
for /f "delims=" %%A in ('powershell -NoProfile -Command "(Get-ItemProperty 'HKCU:\SOFTWARE\SAGA' -ErrorAction SilentlyContinue).'%CaleTipInit%'"') do set "CaleInitiala=%%A"
reg add "HKCU\SOFTWARE\SAGA" /v "%CaleTipInit%" /t REG_SZ /d "%CaleSaga%" /f >nul
if exist "%USERPROFILE%\Desktop\%Link%..lnk" REN "%USERPROFILE%\Desktop\%Link%..lnk" "%Link%.lnk"
start /wait "" "%KitSaga%"
if not "%CaleInitiala%"=="" (reg add "HKCU\SOFTWARE\SAGA" /v "%CaleTipInit%" /t REG_SZ /d "%CaleInitiala%" /f >nul)
DEL /F /Q "%CaleSaga%\u.txt" "%CaleSaga%\uu.txt" "%USERPROFILE%\Desktop\%Link%..lnk" >nul 2>&1
powershell -c "Add-Type -AssemblyName Microsoft.VisualBasic;Add-Type -AssemblyName System.Windows.Forms;[Microsoft.VisualBasic.Interaction]::AppActivate('Program Manager');[System.Windows.Forms.SendKeys]::SendWait('{F5}')"
exit
V4.1 - corectii si optimizare

ciucam544
Mesaje: 891
Membru din: Mar Noi 25, 2008 12:00 am

Re: Scripturi Ajutatoare - pentru Administratori si Utilizatori Avansati

#20 Mesaj de ciucam544 »

Cateodata e nevoie de o arhivare rapida a unui folder si poate nu exista inca utilitarul necesar instalat. Am rafinat un mic script pentu autodescarcare si arhivare 7z a folderului curent.
Auto7z_Archive_Current_Folder.cmd

Cod: Selectaţi tot

@echo off
color 3 & setlocal enabledelayedexpansion
title - Auto 7z Archive Current Folder - 2026(c)byGabrieL
set "crdir=%~dp0" & set "dlpath=%crdir%7zr.exe" & set "7ZIP=" & set /a try=0
cd /d "%crdir%" & if exist "C:\Program Files\7-Zip\7z.exe" ( set "7ZIP=C:\Program Files\7-Zip\7z.exe" & goto :archive )
:dl7zr
set /a try+=1
powershell -NoProfile -Command "$url = 'https://7-zip.org/a/7zr.exe'; $out = '%dlpath%'; $bytes = Invoke-WebRequest -Uri $url -UseBasicParsing; [System.IO.File]::WriteAllBytes($out, $bytes.Content)"
if exist %dlpath% ( set "7ZIP=7zr.exe" & goto :archive ) else ( if %try% leq 3 ( color 6 & timeout /t 3 & echo Try %try% & goto :dl7zr ) else ( color 4 & echo 7zr error ... & timeout /t 3 & exit /b ) )
:archive
for /f %%T in ('powershell -NoProfile -Command "Get-Date -Format yyyy.MM.dd_HH.mm.ss"') do set "TIME=%%T"
for %%I in ("%crdir%\.") do set "FOLDER_NAME=%%~nxI"
(echo %~nx0 & echo 7zr.exe & echo excl.txt) > excl.txt
color 3 & cls & "!7ZIP!" a "!FOLDER_NAME!_!TIME!.7z" * [email protected]
del /f /q 7zr.exe excl.txt >nul 2>&1 & timeout /t 3 & exit /b
Se salveaza in folderul care se doreste arhivat si se executa. Scriptul verifica daca exista 7zip instalat in windows (care este si cel mai rapid la arhivare) altfel descarca temporar utilitarul 7zr.exe de pe site-ul oficial 7-zip.org si face arhivarea tot in folderul curent. Deci arhiva trebuie apoi mutata, altfel o veti include in urmatoarea arhivare. Binenteles ca se poate adapta pentru a salva si in alta parte (se adauga o cale la variabila FOLDER_NAME), pentru eventualele automatizari de backup. Cateodata bun pentru a face backup la C:\Temp sau folderele Declaratii sau e-Factura care de cele mai multe ori dureaza foarte de mult si se poate seta sa ruleze si in background.

Scrie răspuns