Advertisement
Guest User

Untitled

a guest
Jan 17th, 2022
174
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Batch 4.20 KB | None | 0 0
  1. @set @x=0 /*
  2. @echo off
  3. if "%PROCESSOR_ARCHITECTURE%"=="x86" if "%PROCESSOR_ARCHITEW6432%"=="AMD64" ("%SystemRoot%\SysNative\cmd.exe" /c %0 & goto :eof)
  4.  
  5. >nul 2>&1 fsutil dirty query %systemdrive%
  6. if errorlevel 1 start "" cscript //nologo /e:jscript "%~f0" &goto :eof
  7.  
  8. setlocal enableextensions enabledelayedexpansion
  9. echo HASP Emulators for 1C CleanUp Tool v0.08 (C) 2020 by lexapass
  10. set Emulators=emulator NEWHASP haspflt vusbbus vusb multikey64 multikey viubdrv mukeydrv
  11.  
  12. set /a EmulFound=0
  13. set CCS=HKLM\System\CurrentControlSet
  14. if exist %windir%\SysWOW64 set bits=64
  15. set devcon="%~dp0devcon%bits%.exe"
  16. for /f "tokens=3" %%l in ('reg query %CCS%\Control\Nls\Language /v Default ^| find /i "Default"') do set lang=%%l
  17.  
  18. %devcon% rescan >nul
  19. for %%E in (%Emulators%) do (
  20.    if %lang%==0419 (echo Џ®ЁбЄ б«Ґ¤®ў %%E ...) else (echo Checking for "%%E" ...)
  21.    set nodump=0
  22.    %devcon% find root\%%E |find /i "root\" >nul
  23.    if not errorlevel 1 (
  24.       set /a EmulFound=+1
  25.       if %lang%==0419 (echo “¤ «Ґ­ЁҐ ўЁавг «м­®Ј® гбва®©бвў  %%E...) else (echo Deleting %%E virtual device...)
  26.       %devcon% status root\%%E |find /i "running" >nul
  27.       if not errorlevel 1 (
  28.          set PrefixFound=0
  29.          for /f %%i in ('call %devcon% status root\%%E ^|find /i "root\"') do (
  30.             for /f "tokens=1 delims=[]" %%b in ('call %devcon% status root\%%E ^|find /i /n "%%i"') do (
  31.                set /a Line=%%b+2
  32.                set StatusLine=
  33.                set /a CurLine=1
  34.                for /f "tokens=*" %%c in ('call %devcon% status root\%%E') do (
  35.                   if !Curline! equ !Line! (set StatusLine=%%c)
  36.                   set /a CurLine+=1))
  37.             echo !StatusLine! |find /i "running" >nul
  38.             if not errorlevel 1 (
  39.                reg query "%CCS%\Enum\%%i" /v "ParentIdPrefix" 2>&1 |find /i "ParentIdPrefix" >nul
  40.                if not errorlevel 1 set PrefixFound=1
  41.                if !PrefixFound!==0 if !nodump!==0 set nodump=1))
  42.          if !PrefixFound!==1 set nodump=0)
  43.       if !nodump!==0 (%devcon% remove root\%%E) else if %lang%==0419 (echo “¤ «Ґ­ЁҐ ўЁавг «м­®Ј® гбва®©бвў  %%E ЎҐ§ ¤ ¬Ї  Є«оз  ­Ґў®§¬®¦­®^^! &echo “бв ­®ўЁвҐ ¤ ¬Ї, ЇҐаҐ§ Јаг§ЁвҐбм Ё Ї®ўв®аЁвҐ г¤ «Ґ­ЁҐ.) else (echo Failed to delete %%E virtual device without key dump^^! &echo Install dump, restart PC and repeat deletion.))
  44.    if !nodump!==0 (
  45.       >nul 2>&1 reg query %CCS%\Services\%%E
  46.       if not errorlevel 1 (
  47.          if %lang%==0419 (echo “¤ «Ґ­ЁҐ б«г¦Ўл %%E...) else (echo Deleting service %%E...)
  48.          >nul 2>&1 reg delete %CCS%\Services\%%E /f
  49.          set /a EmulFound=+1)
  50.       >nul 2>&1 reg query %CCS%\%%E
  51.       if not errorlevel 1 (
  52.          if %lang%==0419 (echo “¤ «Ґ­ЁҐ ¤ ¬Ї %%E...) else (echo Deleting dump %%E...)
  53.          >nul 2>&1 reg delete %CCS%\%%E /f
  54.          set /a EmulFound=+1)
  55.       for %%I in (%windir%\inf\oem*.inf) do (
  56.          set "dev_id="
  57.          for /f "tokens=2 delims=\" %%R in ('find /i "root\%%E" "%%I" ^|find /i "root\"') do if /i "%%R"=="%%E" if not defined dev_id (
  58.             set dev_id=%%R
  59.             if %lang%==0419 (echo “¤ «Ґ­ЁҐ Ї ЄҐв  %%~nxI б %%E...) else (echo Deleting package %%~nxI with %%E...)
  60.             %devcon% dp_delete %%~nxI
  61.             set /a EmulFound=+1))
  62.       for %%S in (system32 SysWOW64) do if exist "%windir%\%%S\drivers\%%E.sys" (
  63.          if %lang%==0419 (echo “¤ «Ґ­ЁҐ %%E.sys...) else (echo Deleting %%E.sys...)
  64.          del /f /q %windir%\%%S\drivers\%%E.sys
  65.          set /a EmulFound=+1)))
  66. if %EmulFound% GTR 0 (if %lang%==0419 (echo ЏҐаҐ§ Ја㧨⥠Є®¬ЇмовҐа ¤«п ў­ҐбҐ­Ёп Ё§¬Ґ­Ґ­Ё©^^!) else (echo Please restart computer for changes take effect^^!)) else (if %lang%==0419 (echo ќ¬г«пв®ал ­Ґ ­ ©¤Ґ­л^^!) else (echo No emulators found^^!))
  67. pause
  68. goto :eof
  69.  
  70. */
  71. var WSh = new ActiveXObject("WScript.Shell");
  72. var Env = WSh.Environment("PROCESS");
  73. var ShA = new ActiveXObject("Shell.Application");
  74. ShA.ShellExecute(Env("COMSPEC"), '/c ""' + WScript.ScriptFullName + '""', "", "runas", 1);
  75.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement