Вывод информации о системе

ECHO off
Title -=PROGRESS=-
:begin
cls
echo.[ ] 0%%
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[==^> ] 10%%
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[=====^> ] 20%%
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[========^> ] 30%%
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[===========^> ] 40%%
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[==============^> ] 50%%
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[=================^> ] 60%%
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[====================^> ] 70%%
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[=======================^> ] 80%%
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[==========================^> ] 90%%
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[==============================] 100%%
set program=0
for /F "usebackq tokens=1" %%i in (`tasklist /nh /fi "Imagename eq wmic.exe"`) do set program=%%i
if /i %program% NEQ 0 goto :begin
exit

ECHO off
Title -=PROGRESS=-
:begin
cls
echo.[ ] 0%%
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[==usbtor.ru^> ] 10%%
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[=====usbtor.ru^> ] 20%%
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[========usbtor.ru^> ] 30%%
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[===========usbtor.ru^> ] 40%%
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[==============usbtor.ru^> ] 50%%
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[=================usbtor.ru^> ] 60%%
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[====================usbtor.ru^> ] 70%%
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[=======================usbtor.ru^> ] 80%%
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[==========================usbtor.ru^> ] 90%%
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[==============================usbtor.ru] 100%%
set program=0
for /F "usebackq tokens=1" %%i in (`tasklist /nh /fi "Imagename eq wmic.exe"`) do set program=%%i
if /i %program% NEQ 0 goto :begin
exit

ECHO off
Title -=PROGRESS=-
:begin
cls
echo.
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[==usbtor.ru^>
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[=====usbtor.ru^>
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[========usbtor.ru^>
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[===========usbtor.ru^>
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[==============usbtor.ru^>
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[=================usbtor.ru^>
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[====================usbtor.ru^>
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[=======================usbtor.ru^>
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[==========================usbtor.ru^>
ping -n 2 -w 1000 127.0.0.1 > nul
cls
echo.[==============================usbtor.ru]
set program=0
for /F "usebackq tokens=1" %%i in (`tasklist /nh /fi "Imagename eq wmic.exe"`) do set program=%%i
if /i %program% NEQ 0 goto :begin
exit

@echo off
color 1e
<nul set /p "=["
for /l %%i in (1,1,20) do (
>nul timeout /t 1
<nul set /p "=*"
)
echo ]
echo.
title Computer information / Сведения о компьютере
echo.
echo %DATE%
echo.
echo ----------------------------------------------
echo IP-Address, MAC-Address / IP-Адрес, MAC-Адрес
echo ----------------------------------------------
for /f "tokens=2 delims=:" %%a in ('ipconfig.exe^| find "IPv4"') do set ip=%%a& goto next
:next
echo %ip%
for /f "tokens=2 delims=:" %%a in (
'ipconfig /all^| findstr /l /c:"Description" /c:"Physical" /c:"IPv4"'
) do ^
if not defined NetCard (set NetCard=%%a) else ^
if not defined MAC (set MAC=%%a) else ^
echo %NetCard%
echo %MAC%
echo.
echo -------------------------------------
echo General information / Общие сведения
echo -------------------------------------
Reg Query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" | findstr ReleaseId >nul 2>&1
systeminfo.exe | FINDSTR /L /I /C:"OS Name" /C:"OS Version" /C:"System Manufacturer" /C:"System Model" /C:"System Type" /C:"Total Physical Memory" /C:"Network Card" /C:"Название ОС" /C:"Версия ОС" /C:"Зарегистрированный владелец" /C:"Модель системы" /C:"Тип системы" /C:"Полный объем физической памяти" /C:"Сетевые адаптеры"
For /F "tokens=2 Delims==" %%J In ('wmic computersystem get numberofprocessors /Value^|FindStr .') Do echo Число процессоров: %%J
For /F "tokens=2 Delims==" %%J In ('WMIC CPU Get Name /Value^|FindStr .') Do echo Название процессора: %%J
systeminfo.exe | FINDSTR /L /I /C:"BIOS Version" /C:"Time Zone" /C:"Версия BIOS" /C:"Часовой пояс"
)
echo.
echo.
echo --------------------------------
echo Motherboard / Материнская плата
echo --------------------------------
For /F "tokens=2 Delims==" %%J In ('WMIC baseboard get manufacturer /Value^|FindStr .') Do echo Название: %%J
For /F "tokens=2 Delims==" %%J In ('WMIC baseboard get product /Value^|FindStr .') Do echo Модель: %%J
echo.
echo.
echo ------------------------------
echo CPU Processor / CPU Процессор
echo ------------------------------
FOR /F "tokens=1* delims==" %%A IN ('WMIC CPU Get currentclockspeed /Format:List ^| FIND "="') DO set "s=%%~B"
echo Частота: %s% Мгц
FOR /F "tokens=1* delims==" %%A IN ('WMIC CPU Get maxclockspeed /Format:List ^| FIND "="') DO set "s=%%~B"
echo Максимальная частота: %s% Мгц
set cachelevel=2
set cachelevelrus=второго
call :cache
set cachelevel=3
set cachelevelrus=третьего
call :cache
goto 1
:cache
FOR /F "tokens=1* delims==" %%A IN ('WMIC CPU Get l%cachelevel%cachesize /Format:List ^| FIND "="') DO set "su=%%~B"
call :mbgb
if %su% GTR 1024 set /a su=%su%/1000
echo Кэш %cachelevelrus% уровня: %su% %uu%
exit /b
:1
FOR /F "tokens=1* delims==" %%A IN ('WMIC CPU Get numberofcores /Format:List ^| FIND "="') DO set "s=%%~B"
FOR /F "tokens=1* delims==" %%A IN ('WMIC CPU Get numberoflogicalprocessors /Format:List ^| FIND "="') DO set "ss=%%~B"
echo Ядер: %s% Потоков: %ss%
echo.
echo.
echo ------------------------
echo Video card / Видеокарта
echo ------------------------
set /a numik=0
FOR /F "tokens=1* delims==" %%A IN ('WMIC Path Win32_VideoController get AdapterRAM /Format:List ^| FIND "="') DO set "s=%%~B" & call :vdo
goto 2
:vdo
set /a numik=%numik%+1
set /a sss=%s%/1024/1024
echo Видеопамять %numik%: %sss% Мб
exit /b
:2
set /a num=0
for /F "tokens=1* delims==" %%A IN ('WMIC Path Win32_VideoController get Name /Format:List ^| FIND "="') DO set "s=%%~B" & call :vdol
goto 3
:vdol
set /a num=%num%+1
echo Видеокарта %num%: %s%
exit /b
:3
for /F "tokens=2 delims==" %%A IN ('WMIC Path Win32_VideoController get currenthorizontalresolution /Format:List ^| FIND "="') DO call :hor "%%A"
:hor
if not "%~1"=="" set hh=%~1
for /F "tokens=2 delims==" %%A IN ('WMIC Path Win32_VideoController get currentverticalresolution /Format:List ^| FIND "="') DO call :ver "%%A"
:ver
if not "%~1"=="" set vv=%~1
echo Текущее разрешение: %hh% x %vv%
echo.
echo.
echo ----------------------------
echo Sound card / Звуковая карта
echo ----------------------------
set /a num=0
FOR /F "tokens=1* delims==" %%A IN ('WMIC sounddev get Name /Format:List ^| FIND "="') DO set "s=%%~B" & call :vdol
goto 3
:vdol
set /a num=%num%+1
echo Название устройства: %num%: %s%
exit /b
:3
echo.
echo.
echo --------------------------------
echo Memory RAM / Оперативная память
echo --------------------------------
set /a num=0
FOR /F "tokens=1* delims==" %%A IN ('WMIC memorychip get capacity /Format:List ^| FIND "="') DO set "s=%%~B" & call :vdols
goto 33
:vdols
set /a num=%num%+1
echo Слот памяти: %num%: %s% б
exit /b
:33
FOR /F "tokens=1* delims==" %%A IN ('WMIC os get totalvisiblememorysize /Format:List ^| FIND "="') DO set "su=%%~B" & call :vdod
goto 4
:vdod
call :mbgb
goto after
:mbgb
if %su% LSS 1 (set uu=б) else if %su% LSS 1024 (set uu=Кб) else if %su% GTR 1024 set uu=Мб
exit /b
:after
set /a sss=%su%/1024
echo Доступно: %sss% %uu%
exit /b
:4
for /F "tokens=2 Delims==" %%J In ('WMIC memphysical get memorydevices /Value^|FindStr .') Do echo Слотов для памяти: %%J
echo.
echo.
echo -----------------------------------------------------
echo Windows activation status / Статус активации Windows
echo -----------------------------------------------------
cscript /Nologo "C:\Windows\System32\slmgr.vbs" /dlv
echo ---------------------------------------------------
echo Office activation status / Статус активации Office
echo ---------------------------------------------------
for %%a in ("%ProgramFiles%","%ProgramFiles(x86)%") do (
for /f "delims=" %%b in ('where /r %%a "OSPP.VBS" 2^>nul') do set p_vbs=%%b& set off=%%~dpb
for /d %%c in ("!off:~0,-1!.txt") do set v_off=%%~nc
)
if /i "%v_off%"=="Office12" set "ver_off=Microsoft office 2007"
if /i "%v_off%"=="Office14" set "ver_off=Microsoft office 2010"
if /i "%v_off%"=="Office15" set "ver_off=Microsoft office 2013"
if /i "%v_off%"=="Office16" set "ver_off=Microsoft office 2016-2019"
if defined p_vbs (
echo %ver_off%. >nul 2>&1
cscript "%p_vbs%" /dstatus
)
if not defined p_vbs (
echo Microsoft Office не найден на этом компьютере.
)
echo.
echo.
pause