Командная строка, батники, сценарии (bat, cmd) - [806] :: Программы

Код:

@echo off
::
:: Определяет версию ОС:
For /F "Tokens=2* Delims= " %%A In ('Reg Query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /V ProductName^|Find "REG_SZ"') Do Set OS1=%%B
::
:: Определяет разрядность ОС:
Set xOS=x86
If Defined PROCESSOR_ARCHITEW6432 (Set xOS=x64) Else If "%PROCESSOR_ARCHITECTURE%"=="AMD64" Set xOS=x64
::
:: Устанавливает кодовую страницу, соответствующую Windows-кодировке:
chcp 1251
::
:: Создаёт log-файл "log.txt":
set "log=log.txt"
::
:: Создаёт строку в файле "log.txt": Дата - Время Имя_пользователя Имя_компьютера Модель_CPU К-во_CPU Версия_ОС Разрядность:
set "command=echo %date% - %time% %username% %computername% CPU-%PROCESSOR_IDENTIFIER% %Number_Of_Processors% %OS1% %xOS%>>"%log%""
::
:: Задаёт максимальное количество строк в "log.txt":
set number_of_strings=10
::
if exist "%log%" (
for /f %%i in ('"<"%log%" find /c /v """') do (
if %%i lss %number_of_strings% (
%command%
) else (
<"%log%" more +1>.tmp
>"%log%" type .tmp
del .tmp
%command%
)
)
) else (
%command%
)
::
@cls

Модерирует : gyra, Maz
Maz (19-09-2020 13:36): Командная строка, батники, сценарии (bat, cmd) Часть 6	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению