AnyDesk (1918) / Программа удаленного управления от авторов TeamViewer

erogov:
сделал скрипт (DOS кодировка 866) для снятия ограничений на 5 подключений
"C:\Program Files (x86)\AnyDesk\AnyDesk.bat"
сменить в значке запуска окончание ".EXE" на ".BAT"
и поставить галку "запуск от админа"
--------------------------------
::РУССКИЙ 866
SetLocal EnableExtensions EnableDelayedExpansion
color f0 & cls & @cd .

@cd . & @call :Elevator
@if NOT %errorlevel% EQU 0 (EXIT /B %ErrorLevel% & GoTo :eof)

@cd . & @reg.exe query "HKU\S-1-5-19">nul 2>&1
@if %errorlevel% NEQ 0 (set Admin=noAdmin) else (set Admin=isAdmin)
@(@for %%Q in ("%~dp0.") DO (@set BuildDir=%%~fQ)) & @(@echo.CurrPath=!BuildDir!)
@echo.RUN %~nx0 %*
@for /f "usebackq tokens=1-23,24,25,26,27 delims=.[] " %%A in (`cmd.exe /c ver`) do @set WIN_VER=%%D
@echo.WIN_VER=%WIN_VER%
@set Date0=%date:~6,4%%date:~3,2%%date:~0,2%
@if "%time:~0,1%"==" " (set Time0=0%time:~1,1%%time:~3,2%) ELSE (set Time0=%time:~0,2%%time:~3,2%)
@set random0=%time:~-5,2%%time:~-2%_%random%
@echo.DateTime = %Date0%_%Time0%(%random0%) = %date% %time%
@set LogStr=%Date0%.%Time0%^;%Admin%^;%COMPUTERNAME%^;%USERNAME%;win%WIN_VER%
@echo.%LogStr%
@if "%Admin%"=="isAdmin" (
@call :LOG_866_1251 %LogStr%
@call :EchoColor "[Admin=%Admin%]" DarkBlue & echo:
) else (
@call :EchoColor "[Admin=%Admin%]" Green & echo:
@call :LOG_866_1251 %LogStr%
)
cd /D "%BuildDir%"

::================================================================
taskkill /f /fi "username eq %ComputerName%\%UserName%" /fi "imagename eq AnyDesk*"
set AnyDesk_TEMP=%temp%\%Date0%_%Time0%_AnyDesk_%random%
MD %AnyDesk_TEMP%
copy /Y "%APPDATA%\AnyDesk\user.conf" "%AnyDesk_TEMP%"
@del /F /S /Q "%APPDATA%\AnyDesk\*.*"
@findstr /B /C:"ad.roster.items=" "%AnyDesk_TEMP%\user.conf" >"%APPDATA%\AnyDesk\user.conf"
@findstr /B /C:"ad.account." "%AnyDesk_TEMP%\user.conf" >>"%APPDATA%\AnyDesk\user.conf"
@del /F /S /Q "%ProgramData%\AnyDesk\*.*"
start "AnyDesk" "%ProgramFiles(x86)%\AnyDesk\AnyDesk.exe"
::================================================================

::pause
timeout /T 17
EXIT /B %ErrorLevel% & GoTo :eof


EXIT
:LOG_866_1251
@chcp 1251 >nul
@echo %*>>"%~dpn0.CSV"
@chcp 866 >nul
EXIT /B %ErrorLevel% & GoTo :eof


EXIT
:Elevator
@cd . & @reg.exe query "HKU\S-1-5-19">nul 2>&1
@if %errorlevel% EQU 0 @echo isAdmin
@if %errorlevel% EQU 0 EXIT /B %ErrorLevel%
@SET Elevating_vbs="%TEMP%\Elevating.vbs"
@Echo:CreateObject^("Shell.Application"^).ShellExecute WScript.Arguments^(0^),"Admin","","runas",1 >%Elevating_vbs%
@cscript.exe //nologo %Elevating_vbs% "%~dpnx0"
@echo.RUN Elevating "%~nx0" %*
@echo.EXIT noAdmin "%~nx0" %*
@del /F %Elevating_vbs% & EXIT /B 1
@EXIT /B %ErrorLevel% & @GoTo :eof


EXIT
:EchoColor
::EchoColor [text] [color]
@REM call :EchoColor " Привет " Cyan & call :EchoColor "! /\ !" Yellow & echo.
:: color = @('Black', 'DarkBlue', 'DarkGreen', 'DarkCyan', 'DarkRed', 'DarkMagenta', 'DarkYellow', 'White', 'Gray', 'DarkGray', 'Blue', 'Green', 'Cyan', 'Red', 'Magenta', 'Yellow')
@powershell "'%~1'.GetEnumerator()|%%{Write-Host $_ -NoNewline -ForegroundColor %~2}"
@EXIT /B %errorlevel% & GoTo :eof