Утилита от adminmed.ru: быстрый сбор информации о компьютере (BAT-скрипт)

@echo off
chcp 65001 >nul
setlocal enabledelayedexpansion

:: Для корректного отображения в UTF-8
echo Сбор информации о компьютере…
echo.

:: Получаем путь к папке, где находится bat-файл
set «SCRIPT_PATH=%~dp0»
set «FILENAME=%COMPUTERNAME%.txt»
set «FULL_PATH=%SCRIPT_PATH%%FILENAME%»

echo Файл будет сохранен в: %SCRIPT_PATH%
echo.

:ask_cabinet
set /p «CABINET=Введите номер кабинета: «

:: Проверка, что введен номер кабинета
if «%CABINET%»==»» (
echo [ОШИБКА] Номер кабинета не может быть пустым!
timeout /t 2 /nobreak >nul
goto ask_cabinet
)

:: Удаляем возможные пробелы
set «CABINET=%CABINET: =%»

:: Получение IP-адреса
set «IP_ADDR=»
for /f «tokens=2 delims=:» %%a in (‘ipconfig ^| findstr /c:»IPv4″ ^| findstr /v «Autoconfiguration»‘) do (
set «temp_ip=%%a»
set «temp_ip=!temp_ip: =!»
if not «!temp_ip!»==»» (
set «IP_ADDR=!temp_ip!»
)
)

:: Если не нашли через ipconfig, пробуем через PowerShell
if not defined IP_ADDR (
for /f %%a in (‘powershell -command «(Get-NetIPAddress -AddressFamily IPv4 ^| Where-Object { $_.InterfaceAlias -notlike ‘Loopback‘ } ^| Select-Object -First 1).IPAddress» 2^>nul’) do (
set «IP_ADDR=%%a»
)
)

(
echo === ИНФОРМАЦИЯ О КОМПЬЮТЕРЕ ===
echo.
echo Имя компьютера: %COMPUTERNAME%
echo Пользователь: %USERNAME%
echo Кабинет: %CABINET%
echo Дата и время: %DATE% %TIME%
if defined IP_ADDR (
echo IP-адрес: %IP_ADDR%
) else (
echo IP-адрес: Не удалось определить
)
echo.

:: --- ОПЕРАЦИОННАЯ СИСТЕМА ---
echo --- ОПЕРАЦИОННАЯ СИСТЕМА ---
for /f "tokens=2*" %%a in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v ProductName 2^>nul') do echo OS Name: %%b
for /f "tokens=2 delims=[]" %%a in ('ver 2^>nul') do echo OS Version: %%a
echo.

:: --- ПРОЦЕССОР ---
echo --- ПРОЦЕССОР ---
for /f "delims=" %%a in ('powershell -command "(Get-WmiObject Win32_Processor).Name" 2^>nul') do echo Processor: %%a
echo.

:: --- ОПЕРАТИВНАЯ ПАМЯТЬ ---
echo --- ОПЕРАТИВНАЯ ПАМЯТЬ ---
set "MEM_GB="

:: Метод 1: через WMIC
for /f "skip=1 tokens=*" %%a in ('wmic computersystem get totalphysicalmemory /value 2^>nul') do (
    set "line=%%a"
    if not "!line!"=="" if "!line:~0,17!"=="TotalPhysicalMemory" (
        set "MEM_BYTES=!line:~18!"
    )
)

if defined MEM_BYTES (
    set /a MEM_GB=!MEM_BYTES!/1073741824
    echo Total RAM: !MEM_GB! GB
) else (
    :: Метод 2: через PowerShell
    for /f %%a in ('powershell -command "[math]::Round((Get-CimInstance Win32_ComputerSystem).TotalPhysicalMemory / 1GB, 0)" 2^>nul') do (
        echo Total RAM: %%a GB
    )
    if errorlevel 1 (
        echo Total RAM: Не удалось определить
    )
)
echo.

:: --- РАЗРЕШЕНИЕ МОНИТОРА ---
echo --- РАЗРЕШЕНИЕ МОНИТОРА ---
powershell -command "Add-Type -AssemblyName System.Windows.Forms; [System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Width; [System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Height" 2>nul > "%temp%\res.tmp"
if exist "%temp%\res.tmp" (
    set /p HORZ_RES=< "%temp%\res.tmp"
    for /f "skip=1 tokens=*" %%a in ('type "%temp%\res.tmp"') do set VERT_RES=%%a
    del "%temp%\res.tmp" 2>nul
    if defined HORZ_RES if defined VERT_RES (
        echo Resolution: !HORZ_RES! x !VERT_RES!
    ) else (
        echo Resolution: Не удалось определить
    )
) else (
    echo Resolution: Не удалось определить
)

:: --- СЕТЕВАЯ КАРТА ---
echo.
echo --- СЕТЕВАЯ ИНФОРМАЦИЯ ---
echo MAC-адрес: 
for /f "tokens=2 delims= " %%a in ('getmac /v /fo list ^| findstr /i "Физический"') do echo %%a

:: --- ДОПОЛНИТЕЛЬНАЯ ИНФОРМАЦИЯ ---
echo.
echo --- ДОПОЛНИТЕЛЬНАЯ ИНФОРМАЦИЯ ---
echo Запуск от имени: %USERDOMAIN%\%USERNAME%
echo Архитектура: 
if "%PROCESSOR_ARCHITECTURE%"=="AMD64" (
    echo 64-bit
) else if "%PROCESSOR_ARCHITECTURE%"=="x86" (
    echo 32-bit
) else (
    echo %PROCESSOR_ARCHITECTURE%
)

) > «%FULL_PATH%»

:: Проверка результата
echo.
if exist «%FULL_PATH%» (
echo [OK] Информация сохранена в текущую папку:
echo %FULL_PATH%
echo.
echo [ПРЕДПРОСМОТР] Последние 5 строк файла:
echo —————————————-
for /f «skip=1 tokens=*» %%a in (‘type «%FULL_PATH%»‘) do (
set /a line_count+=1
if !line_count! gtr 15 echo %%a
)
echo —————————————-

:: Пауза 3 секунды перед закрытием
timeout /t 3 /nobreak >nul

) else (
echo [ОШИБКА] Не удалось сохранить файл в текущую папку!
echo Попытка сохранения на рабочий стол…

:: Альтернативное сохранение на рабочий стол
set "DESKTOP_PATH=%USERPROFILE%\Desktop"
set "DESKTOP_FULL_PATH=%DESKTOP_PATH%\%FILENAME%"

copy /y "%FULL_PATH%" "%DESKTOP_FULL_PATH%" >nul 2>&1

if exist "%DESKTOP_FULL_PATH%" (
    echo [OK] Файл сохранен на рабочий стол:
    echo     %DESKTOP_FULL_PATH%
    timeout /t 3 /nobreak >nul
) else (
    echo [ОШИБКА] Не удалось сохранить файл!
    timeout /t 5 /nobreak >nul
)

)

:: Автоматическое закрытие
exit